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- 


PA, 


- 


PA 0 


- 


B 

IN 

( 1 AO In) 


pb 7 




L 


pb 6 




H 


pb 5 


80C49 t'b cn t- ? S Itsa 0 
19^ 


L 


PB, 


BIOS ROM ON(turboOT*) 


L 


pb 3 


7‘U mt'tTFls^ 


L 


pb 2 




H 


PB, 


ti-tZ'j h £±i L T— 9 


- 


PBo 


BREAKUP 


L 


c 

OUT 

(1A02 h ) 


PCy 




AL^±lf 


PC(j 


80/40W (1 = 40«t, 0 = 80«t) 


- 


PCs 


Ti%TlfT'|5)flt7’7-tz7 ; E- K 




PC, 


^ A — 3.;*? □— 


L 


PC 3 

PC 2 






PC, 




_ 


PCo 


iz 'y h T- — y^<7)^$ 


- 


□ > h 7. h OUT (1A03 h) 





8255^- KftMKfcf-y h 7= 1) 
1A03 h 

7 6 5 4 3 2 1 0 



1 

















O' 



?ju— - fUM 


# - b c 
(Ttt) 


0 


ffl 7) 


1 


A t) 


- b B 


0 


an * 


1 


A t> 


■t— KilJR 


0 


=E— KO 


1 


■t — K 1 




7)U-y‘%\m 


- b c 

(Jbtt) 


0 


i±J * 


1 


A * 


- h A 


0 


aa * 


1 


A * 


^E- KiSiR 


00 


T — KO 


0 1 


"E — K 1 


1 X 


Tr — K 2 



18 SUKfctBiXl 



8255 1' -y htv Kt'-y h7 = 0) (tf — I-CC74LT) 

1A03ii 

7 6 5 4 3 2 1 0 



°IX1XIXI 



xit'-y h 



t'-y f-.-fe.y h/ijt-y h 



0 


U -tz i y h 


1 


■fey h 



tf- hC f-y hiitfl 


fcfy b 


0 


1 


2 


3 


4 


5 


6 


7 


Di 


0 


1 


0 


1 


0 


1 


0 


1 


d 2 


0 


0 


1 


1 


0 


0 


1 


1 


d 3 


0 


0 


0 


0 


1 


1 


1 


1 



^xy?*V>-b f7h • t-y h/'J-b-y I-SIJSIIJ,-}?- hC(lA02H)<7>ffi*<7) 1 t'-y 
t 6<7)T', 7’D ^'7 A^riSiilA'Ozi >/\'7 |- (;-£•# & 0 



cBMai-So 

7°'J V^'soaLfrfi, 

1) BUSY (PBs)= 0 ZTW-3 

2 ) jk- h a (iaooh) 

3) P C,*ifc±tfS (?-»0-»l) 

"Cfr&XSo 

PB 7 (SEffUMraft^-), PB 2 (SaiSIMff-#) fiCRT©:W»R*tHU ftKPB^i 
PCG 7?-feXR#CiiST&£o 

PB 6 (T-X®i£f£ltf§-^) (±f-7*CPU hOD^ISfflC^fcfLT^T, PB 6 = 1 tiib:/ 
cpu*^© rffoT<^j 

PB 4 (iilS©/^>^^BIOS (IPL) ROMfflij^, s< J t><D?& 

5 0 turbo <Dfr(DMffiT$>?> 0 

PB,tt*-fey b^OSc^aBUr-Xo 

PB 0 fi if 7' CPU ^ £ ©ft #T, CMT 36* PLAY cp e | BREAK | + — *SflP 
t‘K 0 C*S„ 

PC 6 fi 80, 40jff©W!)&*.o 

PCs^ilUTU (?-»l-»0) TlWIBfTX-feX*- KC%5„ fcfiU, X©ftuU DI T 
&0&fr$£jkL?*s< Zt„ -©t-KS^tSKIi, IN#<fr£5l 

BKI « \ 

PC 4 « 0 ©t § CRTC©5#UJ^X7 fc t ^)[;7A-XX7n-;|/^ISt?> (X- 
'W >df-XB#)o 

PCottX-lr y h7“AO#tam5^, {£*©*£© TlJ £*U3;bU"C«:& 
V>o 

•=&— KlS^fi IPL**ff*oT< Pt?>©XS!lCi— 

mom I/O ~7y~f 19 



1B**h,1C** h PSG, S/a-f Xx-f "jO (->^110^) 
IN/OUT : £2£7 



IB * * H 


PSGx-^ (OOh—FFh) 


IN/OUT 


1C* * H 


PSGU'to7.:?i§:t(0~15) 


OUT 



v a -f 7.-r -f -y ? cn-f— ? <7>lS!£(Ri4, Ris) 



7 6 5 4 3 2 1 0 




0 = fn] ; 5 Cffl L 7; 

0 = ^wi (— L tz 
0=*CflJLfc 
0 =*CfflL/c 

0 = F 9 If— 1 5rW L fc 
0 = F ') if- 2 L tz 



PSG (AY-3-8910) ^(DT 7 •feXtifeSo S> 3 >f X f 4 y * £7 9 -tz X7 £ Ktt PSG 
0V5>X^, R 7 , R u , R.s^iE^o JOY1, JOY2fcfc>bK|B*tti 

L, r-7£Sl^-f& fe©T*-l.o 

10 OUT &H1C00, 7 : ’select register 
20 r5=INP(&HlB00) AND &B111111 
30 OUT&H1C00, r5 : ’set register 
40 ’ 

50 OUT &H1C00, 14 : jl = INP(&HlB00) 

60 OUT &H1C00, 15 : j2 = INP(&HlB00) 

70 PRINT BIN$ (jl), BIN$ (j2) 

80 GOTO 50 

Atntnmm-v&z 0 *#, ^s?x^#^©»5e»iaEtT*jt 

ltl(tt771rXt5 BSC ttSJgje-f -6 ££t± 



1D**h,1E**h IPL(BIOS)RQM on/off 
OUT : XH7 / hMjriJtJ 



ID * * H 


IPL ROM ON 


OUT 


IE* * H 


IPL ROM OFF 


OUT 



y ?*•- f > 1 OUTf £-r-:?lJ4'A<T-t> li'. 

ROM %• ON (Z T 5> t OOOOh - 7FFFh i T'Tr ROM 1C V) 0 & to £ 0 
L fc t>' r> X , * ft %• it Sir 4' -3 OUT^^W 8000 h - (DfMCtttt 

ROMA'ONco £ # >^-rntflPLA < ie«(|-r?>o R 

OMA ! ON(7)i: # (C,0000H-7FFFHCT , -5'(7)##iA^% : n : ’i'T 
t, RAMC##ii* HZ, L A' LBc&ti! L (JROM^)' 6>„ Z<n*f 
>il i-> + F" to RAM £: “f-lJ'to •£ „ -tucj; U64K/N'-f F£— IIT-Q 
-KT-# *. 

lA01 M #tt<r>PB4fc#m o 



20 -£> XI 



LD 


BC, 1D00H 


OUT 


(C), A 


XOR 


A 


LD 


(100H), A 


LD 


A, (100H) 


LD 


BC, 1E00H 


OUT 


(C), A 



tt6t, AV'^^CMoT 



1F8*h DMA HSI8S) 
IN/OUT : hMjrtje 



1 F8 ♦ h 



DMA^<7)=1^> K, V s — 9 



IN/OUT 



Z80 DMA3V hn-7tt(^^y, I/0)->(7*l>, I/0)P^©r-7fSi££i«iIi;: ; f7 



f £otz#>(D LSI Th h 0 f-mmb$>Z 0 ttz 

fcSlgfflKin tr--f 5 £ tas-Tt *o -fftfr'i'. G-RAM 

i«K0^SSt^^ t *>WC&£ 0 V7, X7n-;l/£ 

turbo BASIC 5„ 



1F90h SIO (-gR») 
IN/OUT : XH7 / *TM/r£7£7 



1 F 90 h 


-V 


IN/OUT 


1 F 91 h 


AftW 


IN/OUT 


1 F 92 h 


7 + >*JU Bt-? 


IN/OUT 


1 F 93 h 




IN/OUT 



f-x -y > h f # — 



L — M4 4800 bps T£>-& 0 



RS-232C *- K, CZ-8RS t ttSSHfc&**V» 3 t Cfflttf&So 
CZ-8BM2 ±© SIO ©TFi^X (i lF98„~lF9B H ^fJ t) S T b tlX 3 0 i©*-FC 
(iCTC^AoT^T, £*>£©#© 7 Kl'XkUFA8„~lFAB„t&.2>o CJlttCTC** 
tf-u- b *J*^u-?<D'@$\*l,X\,'2>tz)£>T$)Z>o 



IFAOh CTC (-SS5S) 
IN/OUT : SSU I -tMJrtJC 



IFAOh 


f- )[/ 0 




IN/OUT 


IFAIh 


f- 1 > % )[/ 1 


SlO^-r □ v <7 


IN/OUT 


1 FA 2 h 


7 *>* 1 P 2 




IN/OUT 


1 FA 3 h 


^*>* 4/3 


*?>**-K 


IN/OUT 



J- J r>%n'0(Otfi A ) 9 □ "j <7 144 MHz, 
M)W«4/isec~16.384msecS T% 2U2MHz<0^n 

3 V >%• )l> 0 $: ti O > L, ftft? 

-f ' 7 l 44 . 194 seCo 



$0$ i/o-7 7 y 2i 



SIO©0fTK9itfcJ: 5 G, 1F98 h ~ 1F9B h G b 5—OQC TCZtttfZ Z fctfTS 
So ttz, FMtW-F, AfrjR-FttifKt CTC****„ 

IFBOh Z=E-^m%. (-* 14 *) 

IN/OUT : X 



x-?rt§ 


□ > h □— ;u 


t* -y h 0 


o =-r u— 

1=0? U — — /\°— < — Xf £ 


fy 1 1 


&& 


fc'-y 1 2 


I (t vh7> 3-1 *>*#<»**») 


b '7 h3 


?-55E‘^JItS l '} (t '--' f 7 -> ®* ««»*»> 


t'7 M 


? -SSSlE- K#**} <320x2<XW)i:#«>**») 


t'7 h 5 




t: 7 h 6 




h 7 


0 =X1/X1 turbo n >/\°f L ^E- K 

1 = ^fe(turboZ) -t — K 



1 FB 9 h — 1 FBFh Zx+^SAb'^SJi^ (-* 14 *) 

IN/OUT : Z. 



7Fl/^ 


n > F □— Jls 


lFB9n 


W&)tJ 7 — =i — K 


lFBAn 


^(T>f) 7 — =) — K 


IFBBh 


v-tf >?<7);b 7 — =i — K 


IFBCh 


7 — =1 — K 


IFBDii 


'>7>(/)t)7 — □ — K 


IFBEii 


ft (7)* 7 — =i — K 


IFBFii 


S(7)* 7 — =1— K 



ixstx-? 

7 6 5 4 3 2 1 0 



EM 



RGB& 2 t: "J h f-7 =64fe%-ll$T# 4 0 



B 

R 

G 



IFCOh Z? 5 -f*'J^-f*E (-* 14 *) 

IN/QUT : Z 



■r — ? [*]# 


a > h a — ju 


f-y hO, 1 


0, 0 = x + * MJ^77<y7J: UflBfc 

0, 1 = 7 -f -y :? ttx + 3. h «t ‘Mf $fc 

1, 0 = x + 7. HJ/77<y72®fl)mii:A5 
i, l =^:$!l 



22 m.mi,zihh xi 



kf*y h 2 




fcf*y h 3 


1 =/\'>^ y®5fe 


t-y F 4 


0 = 5 fc' It 3 

i=/\'>5o, ls-nssc^-ra 


fcf*y h 5 
fcf'y h 6 
fcf*y h7 





t-y h 3, 4tt2Hi® ; E- K(—lFB0 H #lfe<7> t-y F 4)OT £ # <7)*:£Si 0 

• (turboZ) fro 320 x 200 -t — F'T'<n,&;f«fc<7>£> F 

• t'-y F4 = 0<7>£ #ti t-y F 1 = 0 ZfrKZnZ 

• t-y F4=l<7>£ # (SlFDOiiCO t-y h 3 

ifcih zwmmo&frGLmmiEms. (-* 14 *) 

IN/OUT : Z 

7 6 5 4 3 2 1 0 



0-255<7)fffiiE K-y 

• 20054" >=£— K (1FD0h<7> t-y h 0 =0) <75 2: t 

ifc 2 h ztt'rf/a&mo&frmm 

IN/OUT : Z 



7 6 5 4 3 2 1 0 




5x7 7*'-f> F 64fe ^E- K £11$ LT£> 5 t-y h 7= It IT ffi;bn£ 0 



*0$ I/O -7yT 23 



1FC3h Z^PV*-||5t (-#14*) 
IN/OUT : Z 



7 6 5 4 3 2 1 0 




t'-y h7=0«ilt'y 16 tiiSSSo 

7D7 + -tii, 0*<tliffi4>c7)lS*:Lfcfe&«'.'T, 



1FC4h Z3.^P-JbJ|£ (-#14*) 
IN/OUT : 2T 



x— 


=1 > b □— )\s 


£ # 'y b 0 


0 = 7.3 a— ;K >f ?> 

1 =*? a—jUTO FT -5 


kf-y b 1 


0 = 7.^ a—jis'f >, T-5 F S-aUfi-fCIBt- K) 
1=— Jtttfc'b, 7. ? □— JK > L4‘>.' 


tXy b 2 


0 =CRTiij7lT & 

1 =CRTfctj7l L'i.'t' 


fcf’y b 3 


0 = f-y F 0- 2 ZmvhtTZ 

1 = t'-y F 0 ~ 2 


\L"j h 4 
\ 

M"j b 7 





tXy F 3 = 0<7>£ £ t'-y t- 0 ~ 2 cnii, * 

— /< — r — % t T , r — jf fc'lt p— n-j £ SUIT % fc <7) 

-e*S„ CRTC £: 8255© t> 'J7'f? 0 



1FC5h 1 "jO JKOv MBI#}g£ (-#14*) 

IN/QUT : 2T 



7 6 5 4 3 2 1 0 



xx> 


< 


xx> 


< 











0 =/\'U -y F*#^**- K 

1 =/\ - U'y t-St^fflL^E— K 

0 = T^-trxOFF(f-y F 3*SJ) 

1 =7^-tz^0N(f'y F 3^36b) 



fx77*'-f>F ZOi#— F F*T-(7)*%Sil. 10**h~12**h 



24 ts&dth* XI 



ifdoh mmmm (-*si*) 

(IN)/OUT : hMjrtiiJ 



y— $ 


□ > Y □ — ;u 




h 0 


0HS*«*^> (20070) 
1 =SWff®X-$'(4007-f» 


kT*: 


h 1 


0=1 X 7 / K -y 1 

1 = 27^=5 77/ K'y 1- 




' h 2 


0=X-vio(8 7X?/CHAR)(25Ft, 201t) 
l=i*^ (167X^/CHAR)(12 Ft, ICMt) 


fc'*> 


' h 3 


0 = /<>7 OJStf 
l=;t>7 l$i7F 


£•> 


' Y 4 


0=/<>? OTf-tzX 
1 ='<>? lTfizZ 


£•> 


' Y 5 


0 =PCGzi T7iz7 

1 = PCGM&T7iz7 


fcf-> 


’ h 6 


0 = 8 , 5x$’CG7’^-b^ 

1 =\6=7 7 7CG7 7 5i7 


tf? 


Y 7 


0 = 7 > 7‘ — v T > & L 

1 = r>x-7'T>*o 



7 x "J 7 h BASICigBilfm t' -V 1 1 = 1 T*5> 0 IftCJ: 0 ^77< 

"jO £fiM®& ; £-7T2007'f>£ lTfM5tt?(BW4007-f». turbo 

T'(J, y 7^4007^'^- KOTi # liffiSIS i 0, 

t'7 t- 

fe?ftXl'li/0?(f7 1 3 T-t&$)<7)rt^(7)/\'^->^T<77|SIC fcj^UiSL 
il/jv^-t+3 tiWT-*5 0 

t£l'tz5 1 h'b, '£<F)7’a ■y? A&y->7 ’list 

ITtfTo 

10 OPTION SCREEN 0 : WIDTH 80,25,0,2 

20 GRAPH 0,0,0 : CLS 4 : SYMBOLOOO, 30), ?0", 5,5, 1,0, PSET 

30 GRAPH 2,2,0 : CLS 4 : SYMBOL(100,70), V<> 71\ 5, 5, 2,0, PSET 
40 OUT &H1FD0, &B1100001 : A $ =INKEY $ (1) 

50 OUT &H1FD0, &B1 100011 : A$ = INKEY $ (1) 

60 OUT &H1FD0, &B1101001 : A$ =INKEY$ (1) 

70 OUT &H1FD0, &B1 101011 : A$ = INKEY $ (1) 

itz, turbo T14 OUT iitttiti*, ZT'ti IN fc oj)|| 0 

t*y F 1 lt-y->y;U7°a?°7ATmf&L?mb^o tTyF2« 
T ^ X F © 25 (or 20) -12 (or 10) 0 CRTC ©M£ fc— 

t*7l3, 4 t, 640X400 

©t-F©ttt’-7l3(ifatUOo t’y h 1 *?0 400 7-f t*y 

F 5 « PCG PCG cr^tXtilRCttRg#! 

i&gT2b£„ 

t*y F 6 It 8 x 8 fc 8 X16® 2MM&Z CG<Dt**>t>&mfrjM?fr<DigfeT$>Zo B 
B^KlH:|i8#L*v> 0 t> F 7 >©Jg®o iiiiltabD, 7F y tfo. 

-F (I?VRAM©h*yF5) ** 1*6, (CRTC ©IS® feff-f * 6) T'yf-v^y 

y®fe(i/7 7 4 yX 1 (W) tlTV* 

5 %©a*#^3il*o BASIC ©^-a-r/HCfc * S j; a c, 



*0# l/O^-vf 25 



KSEN 1 , 

PALET 1 , fe 

&|5|Cjti$|c£J#o 0 zMtjyy-y'i >*— Y Y 

£fcj!Wfc&*S*U*, PALET^©fto>0 GKSENt^*ffi^©fe« 

■OT&Z^o 



ifeoh mmm 

(IN)/OUT : «i wjtMid 





=i > h □ — 


t'-y 1 0 


j H3E1ISIT x + 7 h (0~ 7) 


fc'-y h 1 


\Z'V F 2 


t'v h 3 


3"** K7)H£#S<7)ON/OFF 


fc'-y 1 4 


737< •y3’<7>JRGtBJ)£H^|| 


fcT*y b 5 


7'77< •y7tf>W£ll^& 


fcTy F 6 


y v > * > ym ® (#)%•* 


kf*y F 7 





=f-x •yfrf'Ob ^77-f V? frMg&TZ fcfeCli, /'>7 I-A ! 0I:4 'tTI' 
4'(tni#4'b4'L'o *fc, turbo Tii OUT titftztf, ZT-ttIN fc^slo 



Vjtf“XB#©JMS3T2bSo 

©*?*s, &L v> AC && t IEJ3 * 5 Vi o L j: C3fcfc J; 5 * © T£> 6 5 o 



IFFOh A^-KtK-K 
IN : -?:Mjr£jtJ / Z 

turbo 23 J: If, Z ©HTSx-f -y7°X>f >y f 1 SW5* < 0FF = ±ffl© t # 
7 6 5 4 3 2 1 0 



> 


<x_ 







*fMS®0>HIGH(= 0 )/STANDARD(= 1) 7-f -y^ 



SW1| 




7 7 


SW2 


7. -f »y f- (0 


-7) 


SW3 J 


(0N = Tffii)T0) 


SW4 






FD DATA 





Z'C"SW5A < ON = Tffl<7) t £ (HttfcffiB#) 

7 6 5 4 3 2 1 0 




*1$Boffi<7>HIGH( = 0)/STANDARD(= 1)77 7f 
0 

*#iiuBOT2D( = 0)/2HD( = l) 7 7 -y^CSTART DISK) 
0 

SW4 

FD DATA 



fi77l-fVl' £'•> I- 1 - 3 (iBOOTKjOTx'f 77 S-lalST&o SW4 li*»* £l\, 



26 ttUCiHiXl 



No. 


SW3 


SW2 


SW1 


i zU? h 


45} 

Ml 


s 


7*— V'y h 


0 


0 


0 


0 


5(3W >3- 


320K'« h 


2D : Pj®f£^/f 




1 


0 


0 


1 


5(3H 


640K/W h 


, nn . MB 
^ DU 'tSF^y? 




2 


0 


1 


0 


5 < >* 


1 M'W h 


2HD : PiSiti^Jf 




3 


0 


1 


1 


5< 


1 M' ''-(' F 


2HD : PiSiii^Jt 


IBM 


4 


1 


0 


0 


8-f >*■ 


1 Mrx-'C F 


2D256- MBtSSlf 




5 


1 


0 


1 


8< >7" 


1 M/\'-f h 


2D256: MBtS^JS 


IBM 


6 


1 


1 


0 


8< 


240K'\'< h 


1S128: ABm®« 


IBM 


7 


1 


1 


1 


x\— K 7 * -r 7 ^ 


lOMA-f F 







ZtlZOZ'f IPL * ifOT^n fy K&Z. Z £ 

MT, JE-©K36KlUfc**ofc|jif^*'rs*>^TJb«0 *V»K** T77^J -C*So 



W®7M y/X>( yfO SW4 fiflESSfc*©?, t § Cli OFFffiflfcfgLT^,#^* 
4©fe 

|?4>©2fc3, 4 t 5 IBM 7 * — v y h T&iM P 0, h y y 9 0 

**FM(#«)EIS^SK*oT^S 0 *43, tfy h 7® TFD DATAJ 

•S o 

fc £ 5tHI® i 5 ©turbo (TfrlSJK^ if 5 * V») OtKB, SW1 

~SW4 0JB**a»G!6foTV»-5 k©*>£>3 t> LV> 0 
^UKZO#lf4 7/X4 yf-SW6 fer-f X^CiiLt^So f¥L< (iZ©^ 



-f-X7-a 



7;i/£#JH o 

2000h~27FFh x+XK7hUt:'zL-h 
IN/OUT :i2£7 



7h'Jt'i-h l*|<7) fc'-y F C0*?|; 

7 6 5 4 3 2 1 0 



+ t7776(0~ 7) 
este(= i) 

,£;$( = 1 ) 

CG(= 0)/PCG(= 1 ) 
SB^Fn2f$^-F(=l) 
K(= 1) 



•?x -y > \- 'Mtz VmOZt tit\ TV') t'x— Fff>rt#tf 

04'GfeA<Eo fc’A'G, fcCfcJIA&l'. ZT*(J 1FB9 h fe#Rl„ 



3000h — 37FFh x+3. NVRAM 
IN/OUT : XSnifrMm 



7 6 5 4 3 2 1 0 



1 tt7^3-F (00 h - FFh) 

^x yy*M > F turbo T- : M&Z&7fT Ztgj-SIt, il^ROM 7 
FU*<7)T-f±8 f-y F 0 



ISO* I/O -V 7 V 27 



3800h~3FFFh mmv RAM (-H3*) 
IN/OUT : 

7 6 5 4 3 2 1 0 



;i¥R0M7 8 l/7±fi4 t'-y h 
^l7k*(=0)/^2*i> 
orPCGTt-^- K(= 1) 
T's?— •7'f >(= 1 ) 

*¥«•(= l) 

CG, PCG(= 0)/ 

;*?:(= 1) 






x+^hT^h'Jba-h 
bf*y h 5 = ROM/RAM 


il^VRAM 


B. 7JV 


fy l-7 = CG/ : Mm 


fy 84=1/2*1* 


0 


0 


m m« 


CG 


0 


1 


0 


infill**) 


0 


1 


1 




1 


0 


0 


PCG(/-v;u) 


1 


0 


1 


PCG71^© 


1 


1 




PCG?^© 



PCG^^-F kv»-5©tt, 2{0 ©PCG£(£-qT 8 x 16 © * + 7 ? 9 i b 

<DT$>Z> 0 4f@® PCGT^— O’CibSi'?. turbo TtttF 64 fi©^ (8feA9) * 
^©tHUfrKfci 2 t is 0 $>5 Z bfrfrZtf, ZtUi 

BASIC ±T, (16X16) b^n (8X16) ©— o*K9J*Sfcfcef|s6ftfc fe©*? 

4000h — FFFFh "jOF\MJ\ 

IN/OUT : XK1J I -ZuriJCJ 




RB^T 7 ^ *tz -t — K 



B-R.G 



R-G 



B-G 



B-R 



> h RB^T 7 ?-^^- K (ilA02 H , 
turbo T(7)sO?tJ] U #&x.lilFD0no 



28 KJfcfcfflfcXl 



Xl©7*77^ 7 &©5$TBLUE±©7 Kl^X (4000 H 

~7FFF„) **»f#rS4o 

X = Xffi1S, Y=Ylih LT 640X200 ©fc §, 

&H4000+ (X¥8) + ((Y AND 7) * 2^11) + (Y¥8) * 80 

320X200 ©*&•£•«*&© "* 80" £ "* 40" <fc t:>o £ b Tff 

XI turbo © 400 7^ 7 T&'n* 77 0 i^<±fi3 

o 400 7 Y 7©±lr&©7 K W'Xff-JItt, Y AND 1 No.t 

U Y=Y¥2 t LT, ia©iSf|j([t#ltfJ:v», 

£tz, Zt(t 4096 fe ^6 — F , 64-fe^e- F^teotV^^, *•©•&&, 

1, 2, 3©*C*V»feC«:t>'rv»S (^-7'ttt, SCREEN, GRAPH ^M?rCjg®7 
6 J P'Z>T$>6) C g?L< HMl4m&0ffi o 
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CRTC 







lCRTCT£*Zlvea53 



£©*-CttCRTC*S*«K±lfS0T*So CRTCkV^Ott, CRT Con- 
troller, CRT=B®S^£3 V Yu~>vti> LSI 0i fc&©T*£>£o oi D 

CRT C&oT*^£&#J£LTV>£©-C;£>3 0 
rfli, CRTCtfifOiSfcfeO^fcv^ZfcfcBT^Sfcfce, U X h 1-1 fc^SfrU 
TVi*fi§/cVi 0 ^PJEti-S.+^Tab-So 

5 0 Z.<b7u?y &<0^?\$%.W£lb &„ SCREEN nv 
> 0 fc^-57 l©Wt v igjlK:$J>J&*TV»S 

fefec, ro®Ili5I* -3tl^.tU^®ti5o 

&&£I8^-C, /<?/<? fc^S J: -5 f£jl;LI> k^-3 7 -/ -'> a y©**#* 

£*s, o©Bffi K-vO Wot^5®r|i4o 



uxhi-i (r*'L+x^ 



100 


WIDTH 


40 : INIT 


110 


GRAPH 


0,0: CLS 4 


120 


PRINT 


STRINGS (40,"-") 


130 


GRAPH 


1,1: CLS 4 


140 


PRINT 


STRINGS ( 40,” 1”) 


150 


GRAPH 


0,0: GRAPH 1,1: GOTO 150 



~C, rBASICTZ<DJ:5%ZttfTgZ<DT$>tU£, WtitifS &&*.&*> o tUL^i t 
c*a©Ttt*v»*»J k®'5A**^**»61*v»ST* ; 55o ti»U 1frc7)4 , &'£'?tt< 
#^fcv>-5 £ fc£'J x h 1-2 

VT.ti -2 (r*'L+X^«Mii)® 



100 

110 

120 

130 

140 

150 

160 



WIDTH 40 : INIT 
GRAPH 0,0: CLS 4 
PRINT STRINGS (40,"-") 
GRAPH 1,1: CLS 4 

PRINT STRINGS ( 40, " |” ) 
> 

CLEAR &HFE00 : A=&HFE00 



170 


READ 


D$ : IF D$ = "END ’ 


1 THEN 


190 




180 


POKE 


A , VAL ( " &H " +D$ ) : A=A+ 1 


: GOTO 170 




190 


CALL 


&HFE00 








200 


> 










210 


DATA 


01,01, 1A 


t 


LD 


BC, 1 A0 1H ; 8255 


220 


DATA 


D9 


» 


EXX 




230 


DATA 


01,00,18 


» 


LD 


BC, 1800H 


240 


DATA 


3E,0C 


) 


LD 


A , 0CH 


250 


DATA 


ED, 79 


» 


OUT 


(C) ,A ;SET AR 


260 


DATA 


0C 


t 


INC 


C ; BC= 1 80 1H 


266 






* ; 






270 


DATA 


CD, 1B,FE 


* loop : 


CALL 


EDGE 


280 


DATA 


AF 


i 


XOR 


A 



32 xi 



285 


DATA ED, 79 


» 


OUT 


( C ) , A 


290 


DATA CD, 1B,FE 


t 


CALL 


EDGE 


300 


DATA 3E , 04 


t 


LD 


A , 04H 


305 


DATA ED, 79 


t 


OUT 


(C) , A 


310 


DATA 18, FI 


f 


JR 


LOOP 


320 


’ FE1B 








330 


DATA D9 


’EDGE: 


EXX 




340 


DATA ED, 78 


’ EDGE1 : 


IN 


A, (C) 


350 


DATA F2 , 1C , FE 


» 


JP 


P , EDGE 1 


360 


DATA ED, 78 


’ EDGE2 : 


IN 


A, (C) 


370 


DATA FA, 21 , FE 


i 


JP 


M , EDGE2 


380 


DATA D9 


» 


EXX 




390 


DATA C9 


> 


RET 




400 


DATA END 









-^O«J0iftA*fif*o'rv»a©T2l5S (H0^© 8255(D©;tf- F B £#!$)„ 

; e/C&&©£^i±n±? J , SMSlg&fr-e-c rfcfcfcfcfcj t^-sNgjygia.&LTfcv^fr 

frT&Sas, ^5 t fc o tut < tc^5 (X°DX‘-7A$’^MT’g|)Att J ? b o 

TA-S £ t 6)oZtU£ tt)fr< v X h 1-2 TfiSWig^— f-^OtKAo^i 

(±ill®^-X > G*oTVi-S>©T, ±«>5i:*tty-fey hX'f yf (NMI (Dl?) 

fc*fSfcV\, **iT*S*-rfcSa*, BASIC T*ofc©fcWfcJ:3*|>©Tfc*o :T&;b*> 

rs&— MBffiJ &&< £T r A,^e d t tv>3 tztf%:<DT&Z 0 

a#tofr*?tt*fT*'3o *^H®©«J!)iJUtt, CRTC©l«'S>X*0#8g8*.-pfT*3 
<DTlbZ> 0 KVX (CRTC tt ot© VRAM ±©T FWX) £g;L 

■£**©?&*. l/*U t ^HfctlTfea»^ig-C*6do **1**# 

j§&0T&£ o i^T, £ -f fi CRTC t®5 (DT&Zo 

HD46505-SP«<7i£ 

*1-1 £j|TV>*:rtf#;fcv>o ttUi XI Kfifcfo;h,TV»S CRTC, HD46505-SP © $> X 

?W$M.-Oh%> (-##£itK3)o t. © CRTC ht 18 fH (R0~R17) £ TO 1/ 'X X * 
g., £fte>©l^X;ntfi£i3:^LT J ? 5 -& (##3XA-C J f 5 5) 

*m%i-Z<DT&Z> 0 £©£*«:», tfa® 40/80 ifc^-FCiS It S *$«*»£«* 
iltfc’lA’CT, HI 1-1 tztzL, Z *U£{fi8?ftg (200 9 -f 

'y) (Dm'ntzfrb, XI Tt£h il»0W turbo BASIC (CZ-8FB02) THJUftg*- F 
(400 7T X) i o tH5-n* s ®Vi©T, CZ- 

8FB01 (fc L < f± CZ-8CB01) C £*>±lfit LT^fc*: # fct> 0 
ZtlTlZ, 6tzttWl'< CRTC<DfoW>y*J*?<DMU*'ilft5(DThZ> 0 ft is, £ 
v =>©+©tt^tt rK^T#s«©!6iaj ^ItV'So 

AR ( 0 ~1 7) 

£-ftt$gtiVi?X7 b LX AR(7 FV'XU^X^) **&£„ tttfi, ftg&W'^X* (R0 

~R17) ©-5 t>, (H 10#® PSG'v© 

TX-feX t«TV»S). AR ttR|i;tt*fiy#L”C^4 0 
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#1-1 CRTC (HD46505-SP) rtSJ u->7?liB&# 





F*9 # 


Wt 


40«t 


80«i 


RO 


tK¥K^»(-1) 




55 


111 


R1 






40 


80 


R2 


tMPIaI#H4S(-i) 


tK¥I 5) »)(*■§• £ a * 1 $ •f±S( ) £ ft £ T i . 


45 


89 






T > f]i4 b' % y 










(#*»(-«*) 


52 


56 


R3 




±_{ £4 tl‘y h (iIlil[[W]^1f ^<7)/\°;U74i£}e:£o 


(34„) 


(38„) 






(*¥3fc$***&= 7 7 7«Ctf) 






R4 




Sil^SOTMl *H £ L T }t$T Z „ 


31 


31 


R5 


n=7 3.?m& 


s®^$<7)iD w *«H*r s o 7 7 ? s £ ffis:-r % „ 


2 


2 


R6 






25 


25 


R7 


**!§)*)&*( -1) 


SitHWHi MiSCXSW 5 . 


28 


28 






7 7 ? 7 * * > ^ - K }g$, DISPTMGIf - =%, CU DISP 


n 


n 


R 8 


7,+IL— 


f= -£§-(7) ^ .: l — & o 


U 


U 


R9 




iiT%-*fi£TS777'a( § i 


7 


7 


(RIO) 


* — 7;U7*— h77? 


a-VJH&l*, «jj^- f<t>}§:£„ 


- 


- 


(Rll) 


* — VJH> K7^7 


XlT-«®t>nT(.'4'l ' 0 






R12 


7 ? — h T K U 7_L-fi 


ffl*( 0 , 0 ) C*tJ£±Sx*7hVRAMMi£bg5E:T S o 


0 


0 


R13 


77-17 l'U7Tfi 


fc fc* LVRAM«0000 H -07FF„#iltCS4Ct'-r $ „ 


0 


0 


(R14) 


KU7±fi 


*-7JUC7>#^7 KU7^S$t5. 


- 


- 


(R15) 


*-v;i/7 l*U7Tfi 




- 




(R16) 


7-f 


7'f h'O&ajT KU7%i£t*T?>o 


- 


- 


(R17) 


7^f h 


xiT-tt-(ib7nTi'4-i' 0 







1800 H #Jfie0~17*OUTr#Lf3rARCfll*R5eT**o *©», 1801 H C OUTI-ntf 
RO— R17 CttfcRJ&T* Sbittf. 

RO ( 0 — 255) 

R 1 ( 0~255) 

R2 ( 0 —255) 

RO (*¥*£;?») ©*»«.- 1 UfcfcOT* 

C&H l±d®J©£ tTS>So R1 

R2 1 Ufcfe© (£frfe£ f ?ft£*JI'*'3)o 

R3 ( 0 —255) 

Z(0 I'M b(i±(4 4 t? y b tTfi4 tfy b ©“ Oli^ntMJS^o T{4 4 t*y 
b Lfr t (Do xi t« 40 tfr-er 4 J, 80 tfrcT 8 J 

£(£oT©£ 0 ±{4 4 t*y b (±SE|qI^N o ^Xi|g^7X^iSCC^*:b*fe©T^i. 0 [Hl^l 



34 isificthsxi 
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*¥*&5::?iSi(R0+l) 










7k¥l5)Mli*(R2+l) 














tK¥^/F35:^^(R1) 


| 




1 Ht 


H 

B 


H 

B 


H 

B 




mi 






^ (7X?$=R9 + 1) 


IS 


II) 


f! 




1 1 1 








:5c 


*0 


7F 




i i i 










?£ 


3t 




1 1 1 








g 


S 






i i i 








R4 


R7 








*¥®JOTfl 




+ 


+ 


R6 






































— ■o/ji — —j >-< ;m &tr / |-j i- \ 






$/£,' ^ ^ y 5 ^ 13 = ( R 5 ) 



(gflitgt-^) CftL-Hi T3J, turbo T ©HUmg^e 

-x^t-ca r s j ^jg^-r&o rxxxj t^a ws^t#*: 

**» Ctilir^iiU©*! t tSotML5iin 0 S£, 200 7 4 y®f -t X7°l/^f £J; 
-<Jt& t 200^©iiii*ti,^s-c$)5 5 o rmSo 

R4 ( 0 ~1 27) 

R6 ( 0 —127) 

R7 ( 0 —127) 

R4SR0, R6&R1, R7 it R2 t*fj£>LTV>3 0 t £ 0 

R5 ( 0 —31) 

rtUiStt^|p]©'j§i^Jl»30»PST$>'2»o R4 R5 fi 7 X X t% 

b t>^:SMO^|5c'rfg$-r £ o i © t' i>'x X (i x - a- - f > rff- XB#© xa — xxx d — 

MBASIC©XXn-;Hfr<£) tM«bT^-S 0 SI 0 %<D 8255 © I lA02„©t£91£#fB© 

£ to 

R8 

tTy b rtKS0AO**^^o o XI 
cotiv^, £ t fcnjfigTfcs 0 

-f >X U-X^E- K (t'-y b 1 , 2) 

tuliix y4^'i/-xt-Kt^| lo 4>^i/-x->y^t-Fct5 tHS^'WX 
clit, g£iS< -fsc&a y^u-xj/y^&t'ftt-KKtS 

t, t«ti£ C$MS1;tS;fx&;b’tfT'l;i&u) 0 fit, R5 £I$fi5 L& 
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mi-2 R8(7)#I6 



7 6 5 4 3 2 1 0 




V'tBW±TC< £ < ZifctiZT$>Z5 (ma:izlW}&?tiZ<Dti)o 

DISPTMG If# ( fc.' -y b 5 , 4 ) 

f - , fe t < it 2 £^*5 crt ©^jgcfro r t £ a o * ©'ftfe© 5 ;^tt^S!] u*^ 0 nurra 

%f B%E?6b, 3iiiBlzltfiIt>Mti%: < & 5 0 

CUDISP If# ( t' -y h 7 , 6 ) 

XI TltZOiS^Ht-Ty (HE&flE) C4oTV>«®?, ££*V»i;oTfcflfejBJ:& 
* t>o HI u CRTC Jfot l»fc PAS0PIA7 Tit Z T*-y/U4Wl/TV» 

tz 0 

R9 (0—31) 

ft^yX^TbTXtv^OB, r l^^&faxX^’CSzSI'SaxI &©*?<> R9 C&* 

©Ifc- 1 £„ XI TliX^lt 8 7 Zi%fe?Z> 0 turbo Tit 

7 15, 7'S?— X'f XDfrk Atl&COT, 9 

19 t*2>o 

RIO (0—127), R 1 1 ( 0 —31) 

XI Tit— SfoTt'^Uo ;* - V -t- FCDfl^Cl&bftSo 

R12 (0—63) 

R13 ( 0 —255) 

36 KKCtUiXl 



14 t*y htSSiiT F'WX (£±imfc0^;t Z * V 9 ? 
?<Dt AX 1 VRAM® 7 F V7s) &fg£i-6 0 X1T«2048-'nM F ©RAM (A * 7 X 

U'g^tl'iK £ tlli 2 H$CTte&BOOOOOOOOOOO~&Bllllllimi 

XI Ttt R12 fiTfi 3 tfy h«JtK*9fe6**S 0 i!3!JK:0!|£^fcf tz ') X 
R12, R13 £^CoTV>5 0 

R14( 0 ~654), R15 ( 0 ~255) 

*-V;i s%m^tz>7 Kw-'XS-fg^fSo XI 

R16( 0 — 64), R17 ( 0 —255) 

x-f Y^y<D&W*WifrMZ>tz)to(Dl'*JX?-ehZ> 0 XI rttttfr*vtv»*v» 0 

CRTC ©$Pt£©?S££ LTfe < 0 

1) HD46505-SP R0-R11 tf# § &*nTtg, R12-R15 ****&*/»*& 

R16, R17^fc<^jA*/f^pf|gt^ 0 t'HSo t Z. XI Ttifc^ 

2) CRTC©KI§Tfir*^jT«tg*tt93Lfco /57o?tt, m 

7 A y X -So fc £ tf , r A X h © 3000„ #ife fc , G-RAM <D 

4000 h , 4800 h , 5000 h , 5800 h , 6000 h , 6800 h , 7000„, 7800 h © 8 F (±, CRTC £ 
K/iE Ci d t t> H & D o' o T IStR £ ti § <, 



M±T*-2. 0 d ') X F 1-3 Ztt%&A,TMA,T^tzt£%tz^ 0 Z.(D~7 

nA*AA«R12, R13 ■*k^'Cr>X'??7 4 y7S:±T£feK8 Fy F^ffirex X o-;i/£ 
■arSfcOTJbSo VRAM C, CRT±Y©*Sffi:lI («S»7FUX) £®j 

^t^t(;±otX7D-;i/^lLt^5 0 Cftfi |M,T 

©T*o X, *i9^fflCi44«.4K Sfc, £ O § & **, **UiS 

R12, R13 £K®CT 

v»5*»6.T*5o Att'JXF 1-2 *##C t TIEC < 

fcflfSfcW, 

'J* h 1-3 /\- K^x77^a — ;u if# 



100 INIT : WIDTH 80:CLS 4:WIDTH 40 
110 GRAPH 0,0 

120 FOR J=1 TO 7 : CIRCLE ( 280 , 1 60 ) , J* 5 , J : NEXT 
130 Y= 0 : FOR X= 0 TO 30 :GOSUB "START”: NEXT 

140 X=30 : FOR Y= 0 TO 15 :GOSUB "START" : NEXT 

150 Y= 1 5 : FOR X=30 TO 0 STEP -l:GOSUB "START": NEXT 

160 X= 0 : FOR Y=15 TO 0 STEP -l:GOSUB "START": NEXT 

170 GOTO 130 
180 » 

190 LABEL "START" 

200 A=X+Y*40 : A1=A ¥ 256:A2=A MOD 256 
210 ’GRAPH 0,0 

220 OUT &H 1800, 12: OUT &H1801,A1 
230 OUT &H1 800 ,13: OUT &H1801,A2 
240 RETURN 
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?A(CCRTC*:55«3 

UXh 1-4, 1-5 

v x h 1-4 xi mwMV->yji' 



100 


INIT : CIRCLE ( 200 , 100) ,90 






110 


RESTORE " 4025L" 






120 


FOR Z= 1TO 8 : GOSUB"MAIN" : BEEP : WHILE ( INKEY $ ( 0 ) = " " ) : WEND 




130 


NEXT: END 






140 


• 






150 


LABEL"FOO" : WIDTH80 : RESTORE" 8025L" : GOSUB 


"MAIN" : BEEP 




160 


INPUT A$ : ON ERROR GOTO 190: RESTORE A$:ON ERROR GOTO 0 




170 


GOSUB"MAIN" : END 






180 


'ERROR TRAP 






190 


PRINT "ILLIGAL LABEL" : BEEP : END 






200 


» 






210 


LABEL "BAR" : WIDTH 80:RESTORE "8025L" 






220 


GOSUB"MAIN" :END 






230 


* 






240 


LABEL"MAIN" 






250 


GOSUB "SETCRTC" : GOSUB"80/40" 






260 


RETURN 






270 


* 






280 


LABEL "SETCRTC" 






290 


FORI=0TO1 3 






300 


READ D$ :D=VAL( "&H"+D$ ) 






310 


OUT&H1800, I : ’SET CRTC REG. No. 






320 


OUT&H1 801 ,D: ’SET DATA 






330 


NEXT: RETURN 






340 


• 






350 


LABEL"80/40" 






360 


READ D$ :D=VAL( "&H"+D$ ) 






370 


OUT&H1A03 , D 






380 


RETURN 






390 


» 






400 


LABEL" 4 0 25L" : DATA 37, 28, 2D ,34, IF, 02 ,19, 


1C, 00, 07, 00, 00, 00, 00, 0D: ’40, 


25 


410 


LABEL" 4020L" : DATA 37 , 28 , 2D , 34 , 1 8 , 08 , 1 4 , 


16 , 00 , 09 , 00 , 00 , 00 , 00 , 0D: ’ 40 , 


20 


420 


LABEL" 40 12L" : DATA 37 , 28 , 2D , 34 , 0F , 02 , 0C , 


0E,00,0F,00,00,00,00,0D: ’40, 


12 


430 


LABEL" 40 1 0L" : DATA 37 , 28 , 2D , 34 , 0B , 1 2 , 0A , 


0B,00, 13, 00, 00, 00, 00, 0D: ’40, 


10 


440 


» 






4 50 


LABEL" 802 5L" : DATA 6F,50,59,38,1F,02,19, 


1C, 00, 07 ,00,00, 00, 00, 0C: ’80, 


25 


460 


LABEL" 8020L" : DATA 6F , 50 , 59 , 38 , 1 8 , 08 , 1 4 , 


16, 00, 09, 00,00, 00, 00, 0C: ’80, 


20 


470 


LABEL” 80 1 2L" : DATA 6F , 50 , 59 , 38 , 0F , 02 , 0C , 


0E,00,0F,00,00,00,00,0C: ’80, 


12 


480 


LABEL" 80 10L" : DATA 6F , 50 , 59 , 38 , 0B , 1 2 , 0A , 


0B,00, 13,00,00,00,00,00: ’80, 


10 


490 


» 






500 


LABEL" Q80 06 L" : DATA 6F , 50 , 59 , 38 , 07 , 02 , 06 


,07,00, IF, 00, 00, 00, 00, 0C: ’80 


,06 


510 


LABEL"Q8005L" : DATA 6F , 50 , 59 , 38 , 06 , 02 , 05 


, 05, 00, 2 7, 00, 00 ,00, 00, 0C: ’80 


,05 


520 


LABEL"Q8005D" : DATA 6F , 50 , 59 , 38 , 06 , 04 , 05 


,05,00,2F,00,00,00,00,0C: ’80 


,05 


530 


LABEL"Q8003L" : DATA 6F , 50 , 59 , 38 , 03 , 02 , 03 


,03,00,3F,00,00,00,00,0C: ’80 


,03 


V X h 


1-5 XI turbo 







100 INIT:CIRCLE(200, 100) , 90 
110 RESTORE ” 4025L" 

120 FOR Z= 1T01 8 : GOSUB"MAIN" : BEEP : WHILE ( INKEY $ ( 0 ) = " " ) : WEND 
130 NEXT: END 
140 * 

150 LABEL"FOO" : WIDTH80 : RESTORE"8025H" :GOSUB"MAIN” : BEEP 
160 INPUT A$ : ON ERROR GOTO 190:RESTORE A$:ON ERROR GOTO 0 
170 GOSUB"MAIN" :END 
180 ’ERROR TRAP 

190 PRINT " ILLIGAL LABEL” : BEEP : END 
200 ’ 

210 LABEL "BAR" : WIDTH 80: RESTORE "8025H" 

220 GOSUB"MAIN" :END 
230 ' 

240 LABEL"MAIN" 

250 GOSUB"SETCRTC" : GOSUB" 80/40" : GOSUB" 1FD* " 

260 RETURN 
270 ’ 

280 LABEL " SETCRTC " 

290 FORI =0TO1 3 

300 READ D$ : D = VAL ( "&.H" + D$ ) 



ms XI 



310 OUT&H1800,I: ’SET CRTC REG. No. 

320 OUT&H1801 ,D: ’SET DATA 
3 30 NEXT ’.RETURN 
340 ’ 

350 LABEL"80/40" 

360 READ D$ : D=VAL ( "&H" +D$ ) 

370 OUT&H1A03 , D 
380 RETURN 
390 ’ 

400 LABEL" 1 FD* " 

410 READ D$ : D=VAL ( "&H" +D$ ) 

420 OUT &H1FD0 , D 
430 RETURN 
440 ’ 

450 LABEL" 4025L" : DATA 37 , 28 , 2D , 34 , IF , 02 , 19 , 1C , 00 , 07 , 00 , 00 , 00 , 00 , 0D , 00 : ’ 40 , 25 
460 LABEL" 4020L" : DATA 37, 28, 2D, 34, 18, 08, 14, 16, 00 ,09, 00, 00,00, 00, 0D,80:’40, 20 
470 LABEL" 40 12L" : DATA 37 , 28 , 2D , 34 , 0F , 02 , 0C , 0E , 00 , 0F , 00 , 00 , 00 , 00 , 0D , 04 : ’ 40 , 1 2 
480 LABEL" 40 1 0L" : DATA 37,28,2D,34,0B,12,0A,0B,00,13,00,00,00,00,0D,84:’40,10 
490 ’ 

500 LABEL" 80 2 5L" : DATA 6F, 50, 59,38, IF, 02, 19, 1C, 00, 07, 00, 00, 00, 00,00,00:’ 80, 25 
510 LABEL" 80 20L" : DATA 6F,50,59,38,18,08,14,16,00,09,00,00,00,00,0C,80:’80,20 
520 LABEL" 80 12L" : DATA 6F , 50 , 59 , 38 , 0F , 02 , 0C , 0E , 00 , 0F , 00 , 00 , 00 , 00 , 0C , 04 : ’ 80 , 1 2 
530 LABEL" 80 10L" : DATA 6F,50,59,38,0B,12,0A,0B,00,13,00,00,00,00,0C,84:’80,10 
540 ’ 

550 LABEL" 4025H" : DATA 35 , 28 , 2D , 84 , IB , 00 , 19 , 1A , 00 , 0F , 00 , 00 , 00 , 00 , 0D , 03 : ’ 40 , 25 
560 LABEL" 402 5M" : DATA 35 , 28 , 2D , 84 , IB , 00 , 19 , 1A , 00 , 0F , 00 , 00 , 00 , 00 , 0D , 01 : ’ 40 , 25 
570 LABEL" 4020H" : DATA 35, 28, 2D, 84, 15, 08, 14, 15, 00, 13, 00, 00, 00, 00, 0D, 81 : ’ 40 , 20 
580 LABEL" 40 12H" : DATA 35,28,2D,84,0D,00,0C,0D,00,1F,00,00,00,00,0D,07:’40,12 
590 LABEL" 40 10M" : DATA 35 , 28 , 2D , 84 , 0D , 00 , 0C , 0D , 00 , 1 F , 00 , 00 , 00 , 00 , 0D , 05 : ’ 40 , 10 
600 ’ 

610 LABEL" 8025H" : DATA 6B , 50 , 59 , 88 , IB , 00 , 1 9 , 1A , 00 , 0F , 00 , 00 , 00 , 00 , 0C , 03 : ’ 80 , 06 
620 LABEL"8025M" : DATA 6B , 50 , 59 , 88 , IB , 00 , 1 9 , 1 A , 00 , 0F , 00 , 00 , 00 , 00 , 0C , 0 1 : ’ 80 , 06 
630 LABEL" 8020H" : DATA 6B,50,59,88,15,08,14,15,00,13,00,00,00,00,0C,81:’80,05 
640 LABEL" 80 12H" : DATA 6B , 50 , 59 , 88 , 0D , 00 , 0C , 0D , 00 , IF , 00 , 00 , 00 , 00 , 0C , 07 : ’ 80 , 05 
650 LABEL" 80 1 2M" : DATA 6B , 50 , 59 , 88 , 0D , 00 , 0C , 0D , 00 , IF , 00 , 00 , 00 , 00 , 0C , 05 : ’ 80 , 03 



yxM-4*»&j»RLJ:'3o XI JSTfcS**, t C CZ-8FB01 

oT 200 9 4 V*-F©B®T*#Uf turbo -?*>{£ ;LS 0 RUN M*»*-*J¥ 

ttzTfiz. 8 tis V SI b^tztah, 

’’BAR 

fcJT&atffciEfcfcfflSefcSo tztzL, 

*£©-?, RUN 

S 400~480 fr © T — 3 r $C~C&Z>o ^ y "MAIN" {i 14 

<Dt~?Z CRTCOF’ggBl^X;? R 0 ~R 13 tX ftti© 0 D H b L < « 0 C H « 
8255 C OUT ^tl&T—fXXtb&o £*U*t?y Hry h/IHry 
0 © lA 02 H #ife© t* >y F 6 t>£©fi 0 H 0 ^0 I/O v y 

tz^^o 

XI C* frS IE# *40 80ffi ©ffl®tt**l,*Mt "4025L" t "8025L" 

r”FOOcDJ HffiC T ? J dSfU'CA^J't— F 

(fckjttf ?Q 8006 L«D) o S© t * H 500 ffl>M<DT 
o tztiV R 5 ©IWT^Si' 

e», 

turbo fflO'JX b 1-5 Tib S 0 1 fr l t*©? , “***— oitjLT^So 
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ztuz IFDOh (HM'ffll/tf- F) 7T£>S 0 |HJJBn:££0f±try F 0~2 b 

7T&6 C m 1-3 &Mzm§LTl>t:tigt;\,\ 

lU±tfX$mT£>5 0 

*1-3 TO^E- Ktaava^-K IFDOh) 





ft » ft * - K 


S5 » # ^ - K 


h 


25b 


12b 


20b 


10b* 


25b 


25b 


12b 


12b 


20b 


?77>f7? 


20070 


19270 


4'L 


fcL 


20070 


40070 


19270 


38470 


fcL 


bl'yhO 


0 


0 


0 


0 


1 


1 


1 


1 


1 


ti'yhl 


0 


0 


- 


- 


1 


0 


1 


0 


- 


lOh2 


0 


1 


0 


1 


0 


0 


0 


1 


0 


tl'yh7 


0 


0 


1 


1 


0 


0 


0 


0 


1 



t, -? 1 H 7i\t 3 <7)T& 3 

XI Tm^Tg ft^CT 80X25© 2000 fc — jftefSUfcflT^ 

So b*>u ^©Eii(i'M'V i ©t : '^-5 0 *0 /o/ 7A, UXF 1-6 (i 81X25, 82x25 © 

HIPe-F*fls Otli 5©ff 0 

fc^fc^o*#© ZtiU BASIC 

©7, Hfia?n-;i/Jf5W;i5i©/io 7 F i^X £fFJfbT POKE@^ OUT ££ 
(^Ol^(J7 F y tf»-F©RJgfel6*i-fK:)o 

0 X F 1-6 WIDTH 81 

100 KEY 2 , " WI . 80 " +CHR$ (13) 

110 L=8 1 : ’ OR L=82 

120 INIT : WIDTH 80:CLS 4 

130 OUT &H 1 800 , 1 : OUT &H1801,L 

140 FOR 1=1 TO 24 : PRINT STRINGS ( L , CHR$ ( 64+1 ));: NEXT 
150 PRINT STRINGS (80-(L-80)*25-l , CHR$ ( 64+25 ) ) ; 

160 GOTO 160 



[F2] C hi "WI. 80" £5£^CT StfcftilCMttICffiotaiK tz 
Tz C turbo <Dt§nt£, CZ-8FB01 fcfc 3 £ b 0 CRT ©S!flf0*£c J: o T 

L=82Tlff82X^Ctfci:S, £Tfc T ! J ifi 2 
tl6 0 t v>-5 t, 82X25 = &H802 = &H800+ 2 f*fr Z %<DT$> Z> 0 t 

tefo-%, CRTCli 205010 J: -5 t IT, t b fr < b 2048li@ & Tit fc*- o 

tamt &CDT&6 o i; r^X F VRAM & £ 7$|;b t> &©T, CRTC 

< r*X F VRAM OftIClot 2 -5— 7©*»£o < 6 

■5.©T*S 0 + 5, CRTCIii:^^«’C4)^{+*C^S©-C^S 0 

</o i*»tctH*Xl 



H&C 7 <DtztbhZ.ikWM'7 4 TTS©: 7 ^ if y A £ U A h 1-7 K^LT# < 0 

£ tiit turboZ ©^- — /-n*— X + + :x&.;fci,i&fc©fc#;tT^L3£A&ViT£>?>-5o L 
dfc^turbo BASIC T US ^ & t, * © T\ CZ-8FB01 T Vifcflf § fc Vi 0 

') X V 1-7 ^Ba'7'f -f 



100 GOSUB"BAR" : ’ INITIALIZE 

110 GOSUB"PCGDEF" : ’ PCG DEFINITION 

120 WIDTH80 : CLS4 : INIT 

130 RESTORE" ALLWP" :GOSUB"MAIN" : ' SET CRTC 
140 CGEN1 :COLOR7 : ’WIPE COLOR = 7 (WHITE) 

150 FOR 1=0 TO 8 : CLS , I : PAUSE1 : NEXT 
160 FORI =8TO0STEP- 1 : CLS , I : PAUSE1 : NEXT 
170 IF INKEY $ ( 0 ) = " " THEN 150 
180 GOSUB"BAR" :END: ’ CRT=NORMAL AND END 
190 ’ 

200 LABEL"BAR" : INIT: CLS , 32 :WIDTH40 : RESTORE" 402 5L" 

210 GOSUB"MAIN" : RETURN 
220 ’ 

230 LABEL"MAIN" 

240 GOSUB" SETCRTC " : GOSUB"80/40" 

250 RETURN 
260 ’ 

270 LABEL " SETCRTC " 

280 FOR I=0TO13 

290 READ D$ :D=VAL( "&H"+D$ ) 

300 OUT &H1800, I : ’SET CRTC REG. No. 

310 OUT &H 1801 ,D: ’SET DATA 
320 NEXT: RETURN 
330 ' 

340 LABEL" 80/40 " 

350 READ D$ : D=VAL( "&H"+D$ ) 

360 OUT &.H1 A03 , D 
370 RETURN 
380 ’ 

390 LABEL" ALLWP" : DATA 37 , 2E , 30 , 34 , IF , 02 , 1C , IE , 00 , 07 , 00 , 00 , 00 , 00 , 0D : ’ 46 , 28 
400 LABEL" 4025L" : DATA 37 , 28 , 2D , 34 , 1 F , 02 , 19 , 1C , 00 , 07 , 00 , 00 , 00 , 00 , 0D : ’ 40 , 25 
410 ’ 

420 LABEL"PCGDEF" 

430 M=&HFF 

440 FOR 1=0 TO 8 

450 P$=STRING$ ( I , &H0 ) + STRINGS ( 8-1 , M ) 

460 DEFCHR$(I)=P$+P$+P$ 

470 M=INT ( M/2 ) 

480 NEXT: RETURN 



/D^7A®iUO^ -S' + 94 XTCRTC£IESeLTVi£©{i, PC Gfcm&TZt: 
PCG CRTCtfjEL < #3©*- 
h%(Dtzo PL<tt*2*©PCG*#!BL'rv»fc«*fc1r». ST, /o/yAtfJC 
CLS, I 

t Vi • 5 < -5 W, Z. tUt CZ-8FB01 ©RgfttfHrT, I ©{(£ ASCII = - F 1 1 & 

LTBffi^X ') 7? 6<DT$>2> 0 ©1^**3!??$ ft S 

t, ? 7&WiM±(DX'<—Xbfrtr£tl6(DT, flCiOFCIotStt 

*CLS*LfeVifc j»tt, 

CLS, 32 

ZtUt turbo BASIC Tttffl&ftTViStlMBTfcSo 
Z(D7u7y Z> t, ^^Tliffifi 46^x28 : ?T ; e— L^L BASIC 

tt8OX25©^-F0O«>r)T»v»TViS o ZtUZty T TCLS, IJ 465: 
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^x28tT£T^T**7X7=CHR$(I)T:li&T < tlZ> 0 Xu 
£T7'f 7°£ii® 9 jgTo * 5 ft£ 6, jgjg^iE'^CLTlI-T'f So fT'bjX^ 

^ T -2) £i DIii§J*£^ C ^ iC & ■»> tf)~C$. 31^ T" ^>3.to & io, Z^(OXu ^7 2^ 

— /\°— ^ y*°— X/fj-C£>& 0 x— />%“ — f y;tf— XT&v> h £ 

X-A — f yjK-XC-fS b, If < &<Dtz 0 

< hm fr$z> £f# £ 

3. (DMOX'y X>vXu X'y if -5 frftt'b CRTC fcv^Tf 

fc t £ (i'iii®^ 20x25 £ Lt 4 ® C T {£ -5 t S 0 

u ^ISCUfflCfit-fSHStt** 9&<, &**%*.ovvte©ttyx h 1-7©±H®7 4 
^ce.ViftOTJbio btui, HftttSflMEScrafftV'kv^ ci:*©T*5'5*»? 

L^L XI (D CRTC ©•?£>£<, ■=?■— J&tl-tS' £: 3. fc U t) 

lHl^-CQ*^^-cD®5O"e0D^/'«r A.^-CD-e2b^>0 
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■gas 

nPCGI*=£$l'tAW)T*»3 • • • 



£©jf£"CU: PCG % J PZ>(DT$)2>o lk>(Dtz*fc idt-oTfc < b, PCG b It Programmable 
Character Generator (DMVfc'T'fo -S 0 £ 3 Tf o Programmable 

— A/J •?• U X Character Generator b li-?-© £ $. tz b , [ tt* 

iCtCiS o -otVtt fZO ASCII n-F©#^ 

(i, £ — ($>— — >tiZ%: -oX^'&CDtz] b 3 £ fc £•$#>?> & ©&©7f 0 Programmable 

(FONT! 7* 7 b) »ROMC*oTV>ite»fP2bSo J t 
PCG lilpC iotti, RAM £ t fc&£ 

©•eS)-5o **t©E:WttROM CG7£>-S 0 

£T,Ji£n©J:-b:Xl- ! P MZ-2500 TliZtD PCG *$ t X b 7 ;P^©T, XEVIOUS 

©T*ofc.PCG©flJjStt, (7 b U tfa- b fcAft 
■Sfc-TSt) 2 aM bOf-^^tS/’bt, 8 Fy b x 8 Fy b x 8fe©^°7-7 

777^ 24 b©li 

12^©aftTJb5o &U 7byt*a-b§ill4<t 
24fg©iistv^ 1*4^7 7 -f v 

7 t PCG©**r&*>-&**g*«o/£9-r4©T, 1 b U»©TfcS 0 7- 

ASfffCtotli, t<, fflri'ib PCG, b C < tt, WS7PCG 

A j b s x. i o 

t*»U PCG tV^t^^K/77^ 7 7 £«****. 6 *lSfrtmi*V» 0 tt£io 
*>, PCG H 256{HbjHfc*.*v»U 8 F y b ¥{frCbfrfBS*S £ k "CS * 

K±0J:-4;t^Sioo, ffifi^CA-oTKD < ©Ti>ofco 

pcg<*s*j$ 

BASIC ±7 PCG £i£5 Ctt, £-ftt PCG &£»UftU;bUi'ft‘S&v>o *©^776- F 
^^00^^TS^7S©7$)-So CZ-8FB01, 8CB01 Tli, 

10 INIT : CLS 

20 DEFCHR$(77)=24 ^M b©3WJ 
30 CGEN 1 
40 PRINT CHR$(77) 
t**s»o '^tzKimTh^tzo 

30~40fxtt*f*, 

30 OUT &H2800, &H27 
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40 OUT &H3000, 77 

ST, 30fr©OUTXtt7h 'J lfa-hOR5iT*So 7 h 'J t*a- Of 
iaiffci5, iitfe02-l CgU«<, 3*1 £.£!?, &H27 t life# 7 Th 9 , ^ 
o PCGTfcS i:VO 40 fT© 77 It^-KZ ASCII 3-FiblI 

*f„ 



i 2-1 7 F ijfi- H^OTt'-y |><7>jti!* 




THjea-hiiotcctntf, ^2is, 

* 7 - & 7 -lz?Zt, PCG ©fe**£teT £ o fc t A « U * h 2-1 © t ■$ C ASCII a - 
P 77 © PCG C, 

WttA, #(iB, ftttc 

t^SUTteViT, fe*0~7*T*-fkS*T«^1-Si;, 0 ©/<*-Vj&**jS$ 

*iS 0 tttTV»fc«SfcV» 0 

0*1 2-1 PCG £7 h 0 t'^- KZ>* 5 - 



100 WIDTH 40 
110 A$=" " 

120 FOR I = &H4 1 TO &H43 

130 A$ = A$ + LEFT$ ( CGPAT$ ( I ) ,8) 

140 NEXT 

150 DEFCHR$ ( 77 ) = A$ 

160 FOR 1=0 TO 7 

170 OUT &H3000+I , 77 

180 OUT &H2000+I ,&H20+I 

190 NEXT 

200 LOCATE 0,5 



pcG<*mm 

BASIC Tit, PCG ®IiCB DEFCHR$££^-5 fc>ltT$>Z 0 turbo TttlBMtt*^© 
t£&, XI Tit DEFCHRSttJWreSSVMflr^i: Lt^I^Kaniotv^o £TRc, * 
C«>^i:f0 jgifilPCGStt&E^hSJIiTSi^TS. 

So 

S1*H:¥oJfc9#<, ®MI§TPCG=&^«TSrn^7A^'jX h 2-2 K^To UXh 

W, 2 n PCG 45 



2-3 BASIC ■fchvtim'fi&rotb Zo 'JAF2-2, 2-3 {2g*'tS#ftT£> 

ilPb, *< STfe^Sflf fcV»3 

'Mb 2-2*i»JB-rae$fe&o't, PCG^OHaS-^tTiJido 

XI ©BSiS^i CRTC (CRT3>bn-7) **«H)fW0o 
■CViSOTJbSo c CT^ J: o tSSilC^tLT, CRTC ***?— ’ 

©£>£, T § t-C#it^5©t*3fel>o CRTC lit $tC:£lE3§l# 
tVi-5) ^itSO^So CRTC VRAM £ US 

©T&S (C C @&>TFH^nM4^^;te*a : ‘S&IDo £-f Li £±© LOCATE 

0, 0 0ffiB£i»e>, I/OfflH© 3000„#*ftfc:fcS VRAM © ASCII 3-KS;15foW 
A£ 0 C cniTAJoS; o CHR$(&H41)** VRAM fc#^T*S t L <fc do t5t CRTC 
ttTfco! 41 H 4*4 0 ZtlTtt, *i'7?*5>x*U-*©41 H tC#J&tSi:C4a'%/'? 

Li -5 J t 'OJS* < ©T£>5 0 4/iL, FAJ t v> d f^fi 8 X 
8 F v btifrb r±i»6fif«SJ tv>d - t fci|£L*tt*Uf*e>*v»o CRTCtiS-CA 
t C i t>^Ai:nM#TV>T, r ASCII 3 — K 41„© 0«i ©^- >j 1 V>d X d CilSt 
T<£©T£>S> 0 C© 8 F '7 F rVRAM© 3001 H #ifiC#*<jH'rif»a 

ASCII 3-F©X^©0®g©^^-Vj, tm<<DT2b6 o -?• LT, £±©iii;TfT 

ofce., nc ascii n- nzttLr&mzmnbx 2 *£*#*» 4*arr sot* 

So 

ffiSLTgfcL^Ott, JUifcOjfc^T, rCRTC^CG©^°^-> (r-?) CT^-feX 
LTF>4J oSO, 

CRTC ROM ^ RAM iCT^-fe*. LTV,' 5 

(D~C$)2> 0 *£TPCGtf, *4 VRAMC7^-feXbTV»SfcS, f©VRAMK£l© 
fcffcC 4 4 ASCII 3-F^ilLtfc'<t, CRTC tt&ftc * © ASCII 3 - F CfcfoSt 
4 CG ROM (ttzht RAM) C7?-bAt« 0 SiJ©H]S&*'G 

7-*-?£&oT^U, /<?->£*#&A,-CLi d©T£S 0 £*l**Xl C*fr4 PCG® 
S©ttlfi*-T&So 

LL±*WS4©ifdL if £ CJfe 4 t 5 

t, PCG *5' CRTC \zmzX$tiX7 , -?1>sWtfrtii2tiX\i>&1ktmz,1$t&b$'vi/v') 
tBT § T, ^© PCGCR***irf^*1-4Ja:iff| : Sn*V»i:V»5 £ i: 4©*f 0 Wil©^* 
yc»LT TKtf c 1 1#< d L£|WlH#F: ; fT4d J ©«i i F£ti4v>©-T£)2> 

T^PjK-F RAM iv^ot, ZtlWTSZ RAM t>&S**)o 
TTi, ^^©LCSIiif-^oT^SC^fcv^ t, 

CRTC T £ *4 V.' VRAM J £ T <7 -fe * L X V.' S t £ ti It , ffe©HlS&*' b 0)7- * 

R/W £1* LTV.' 5 

©T&S 0 

^©nnnti, VRAM fi 3000„~37FF„ = 2048 *U FfcS©i i, fflffiSSjSKfilfcivr 4 
VRAM (i, ^Uti, flb*;T 80X25 = 2000 'nM FT, 48'nM F t v>d £ 

fc4©TS)2. 0 CRTC***® VRAM K^Lv>7f , -feX£LTV>&X*£4a<'>oT, T- 
46 ISi?(caiSXl 



*©»*** 3 ©T*S 0 *© CRT C*»67^-fe^S#l5 



VRAMJ 

1) WIDTH 40 : SCREEN, 0 ©:#£• 

I/O © 33E8 H ~33FF H i T*© 24 'M h 

2) WIDTH 40 : SCREEN, 1 ©*§^ 

I/O © 37E8 h ~37FF h £ T© 24 h 

3) WIDTH 80 cotjv'a 

I/O © 37D0 h ~ 37FF h S T© 48 h 

© = OO^r&*5afeSo h 0 t*i- b (turbo ©*§-£&, $ ££ 

Sl¥ VRAM fe ) -fe y b b Tfc < &K&S& 5 0 

fc 0 X b 2-2, 2-3©ttMKAS©TJbofco 



X h 2-2 


««»tCJ:S PCG5£« 








E000 


EB 


; 


. Z80 
. PHASE 

EX 


0E000H 

DE,HL 


E00 1 


46 




LD 


B,(HL) ; HI 


E002 


23 




INC 


HL 


E003 


4E 




LD 


C , ( HL ) ; LOW 


E004 


23 




INC 


HL 


E005 


ED 43 E078 




LD 


( BCWORK ) , BC 


E009 


56 




LD 


D , ( HL ) ; COUNT 


E00A 


23 




INC 


HL 


E00B 


5E 




LD 


E , ( HL ) ; ASCI I CODE 


E00C 


23 




INC 


HL 


E00D 


CD E018 




CALL 


SET0 


E010 


46 


* 


LD 


B, (HL) 


E0 1 1 


23 




INC 


HL ; HL POINTS PCG DATA 


E012 


0E 00 




LD 


C , 00H ; BC=1500H , 1600H or 1700H 


E014 


CD E052 




CALL 


SETPCG 


E01 7 


C9 




RET 




E018 


E5 


SET0 : 


PUSH 


HL ; SAVE POINTER 


E019 


D5 




PUSH 


DE ; SAVE COUNT and ASCII CO 


)E 

E0 1 A 


01 1FD0 




LD 


BC , 1FD0H ;FOR turbo 


E01D 


AF 




XOR 


A 


E01E 


ED 79 




OUT 


(C) , A 


E020 


ED 4B E078 


* 


LD 


BC, (BCWORK) 


E024 

>) 

E027 


21 3800 




LD 


HL , 3800H ; KANJI VRAM(turb 


3E 00 




LD 


A , 00H 


E029 


CD E048 




CALL 


SET1 


E02C 


ED 4B E078 


’ 


LD 


BC, (BCWORK) 


E030 


21 2800 




LD 


HL , 2800H ; ATTRIBUTE 


E033 


D1 




POP 


DE 


E034 


D5 




PUSH 


DE 


E035 


3E 20 




LD 


A , 20H ; PCG , COLOR=0 


E037 


CD E048 




CALL 


SET 1 


E03A 


ED 4B E078 


’ 


LD 


BC, (BCWORK) 


E03E 


21 3000 




LD 


HL , 3000H ; VRAM 


E04 1 


D 1 




POP 


DE 


E042 


7B 




LD 


A , E ; ASCII CODE 


E04 3 


CD E048 




CALL 


SET1 


E046 


El 


’ 


POP 


HL 


E047 


C9 




RET 




E048 


09 


SET1 : 


ADD 


HL , BC 


E049 


44 




LD 


B , H 


E04 A 


4D 




LD 


C , L ;BC=HL+BC 


E04B 


ED 79 


SET2 : 


OUT 


(C) ,A 
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E04D 


03 




INC 


BC 


; INC ADDRESS 


E04E 


15 




DEC 


D 


; DEC COUNTER 


E04F 


20 FA 




JR 


NZ.SET2 




E05 1 


C9 




RET 






E052 


IE 08 


SETPCG : 


LD 


E , 08H 


; COUNTER 


E054 


D9 




EXX 






E055 


F3 


* 


DI 






E056 


01 1A01 




LD 


BC, 1A01H 




E059 


ED 78 


VDISP0 : 


IN 


A, (C) 




E05B 


F2 E059 




JP 


P , VDISP0 




E05E 


ED 78 


VDISP1 : 


IN 


A, (C) 




E060 


FA E05E 




JP 


M , VDISP1 




E063 


D9 


’ 


EXX 






E064 


7E 


SETP : 


LD 


A, (HL) 


; 7 , GET DATA 


E06 5 


ED 7 9 




OUT 


(C) , A 


; 12, SET 1 BYTE 


E067 


23 




INC 


HL 


; 6 , INC POINTER 


E068 


03 




INC 


BC 


; 6 , INC I/O ADDRESS 






; 7 + 12 + 6+6 = 31 






E069 


00 


9 


NOP 




;4 


E06A 


23 




INC 


HL 


;6 


E06B 


2B 




DEC 


HL 


; 6 , DUMMY 






; 4+6+6= 


16 






E06C 


3E 0D 


1 


LD 


A , 0DH 


;7 


E06E 


3D 


DLY : 


DEC 


A 


;4 


E06F 


C2 E06E 




JP 


NZ , DLY 


; 10 


E07 2 


ID 




DEC 


E 


;4 


E07 3 


C2 E064 




JP 


NZ , SETP 


; 10 






;7+(4+10)*13+4+10=203 








•31+16+203=250 






E076 


FB 




El 






E077 


C9 




RET 






E07 8 




BCWORK : 


DS 


2 










END 







D X b 2-2 V*J 

X^^WltV^. t-fS DE w;>'X?©|*!^£ HL l^^X^CiLt, BC l^X^C 
Miti'So zMz9mmnhtz rsus£;n.&v>vRAMj (D^cmrvu^^mim ? 
hi > 0 ^©rKw-xtiaffi 

; e-FKioTiioT< S^T&So fO^CDl/'^X^CMLtHS TCOUNTJ 
fc Biffin- Ki: J: oT^;b&©«|IlU £ hfiSo 
& CffFfc© ASCII a-Ktti, CtUi J2U:0A xX-;?£j$oT SETO &a~/uL 
tv>5 0 SETOTtt (IFDOh) «- 00 H t LtV^i?, turbo FB?$>Z 0 turbo THZ 

c o -c * d , xi t mvmi'tz s ■& $ * * k », oo„ * out l t * < &£ 

**Jb«ofc^fti#Ui^©fc«>'r*o-C t Xl^-K -ceii) btfe’ft if, IPL *5 g ftft E 00 h 
5-by hLtfcv^K il5*»e»jl|!<1«tfjfi5>Stt*^, * ft fi &©gi^ VRAM -C fell U 
T, 3800 h + BC v&Zffrt,, D w^X?#00 H &-fe y b LT^£ 0 fe t turbo Tftfritz 
*»-£&, i ilfi 3000 H + BC^^X^ #%*•?»© VRAM C-fey hSftiCiCftSi*, * 
VRAM -s ASCII 3-Kfc-tey htl.OT, fc«fCA^C4S«» 
Hffi^SL^€>*fc*©S^#{±*t i ©'C^C,'1-S i-C 0 ^W^TbU’i- 
b fc3itvnivilt*vi 0 Ct^(i20 H Sb'ybltv^i^, o£ 0 HS--?;u<D PCG 
T, -feao (OJDS1) b^SCtJ-rvsnWPfe J:V»©T, $1 

3HC «k otli FF H *4fCfr fc <tt^f5do 

ts&tcai&xi 



SETO SETPCGTS.^0 £-fE010 H -e, *<=>*> C £ B u 

;©K?B UifZfliZlt, 15h, 16 h , 17 h © 
5*>b'tlA>&A9, *tl£. totf, &<D5t>i?tl&-k'y F $*l**>**&$*©rtf 0 

HI 2-2 §fcv> 0 



112-2 CG, ROM, PCG I/O h 





XI, XI turbo n 3 -tz X ^E — K 






14 * * H 


CG ROMT^-tz* 


IN 




15* * H 


PCG BLUET’ :? -tz ;* 


IN/OUT 


16* * H 


PCG RED7 7 ^ iz 7. 


IN/OUT 


17 * * H 


PCG GREENT^-fe* 


IN/OUT 




XI turbo K 




14* 0 H ~ 14* F h 


CG, il^ROMT’^-tzT. 


IN 


15* 0 h ~15* F h 


PCG BLUEl’^-b^. 


IN/OUT 


16 * 0„— 16 * F h 


PCG RED7” ^ -tz ^ 


IN/OUT 


1 7 * Oh 1 7 * Fh 


PCG GREEN T<7-fX 


IN/OUT 


> b 

turbo<7)ii^, I/0/-S— blFD* H ^®5kT'y h^l^bti'll 
T^-tz^^E— K, 0£«b{f=] ? iz*^— K 0 



$T, i <1,-5 fc#*»* <£-£, WiZOttTH, -SClMU^7hTI4Vi 
<DT$>6o ?%£>%, IEL < PCG £-te>y F't-SCfi, Cl®;P-f-y£ 3 @n¥t/fcB£ &0-tl 
\it£ht£^(Dtz o i©jS^C.'#TfcVi-CSIftVib^T*So 
Tl£ E052 H * i <'>© SETPCGT£>5 0 £-f E 08 H £n- F LT^-So Cftte t 

9 *>&££*, + ^7j7^©T-^*S8|§|ff!9T^-S> d 0 08 H i:V>-5© 

(iA7>^^©t*5 0 J f©ftE055 H ~E062 H Tfir j f e.fr*o'TV»*!6*, CfUirsaWM* 
»iMfflr^©*%T**5J (1/0*°- F lA01„#ife©Si7 tfy F)©*& ttJft©T*-5o RA& 

citicfi cRTCfi^y©* 
VRAM ^7X*X£||fl^Lg;~1\|iV>5:t^***-5©ft* 0 
•9-'f>*©T*S„ U?.?, jMI*t*V»*ttJP ******* dntt#gTil l tT^/ l :fi 

& fcV* o 

^ J:V> i^i> + ©^C.'**, E064 h *^-C**o £-f, (BC) F OUT lt^ 

-5 0 dft-CPCG-fey FAUMt§fcitK*5 0 E067 H ^Ttt||C* 9 ^.fitz'f'a'fy 
A T * -5 0 5-Lt, fcB&Cfr, f'j W ;P— f- >T*-5 0 'fufy ^©^ffiCMATVi-S 
©&, Ar-FiSf (Z 7 n >y : XI 4MHz 1 ^ n >y 0.25 //s=0. 00000025 
#) T*-5 0 ;P-7"l|U^**250 ^ny^C*S < J:5GbT**o HiOi-KftoT 
CftttCRTCOitefcJ: *&©*©*?. -f &*?•£> rPCG©-fe'7F« 
CRTC**^3;ft.*n RAM CT^-feX GT^-5 t # £?OT1-* J t *JIg!l**** © 
t% rCRTCli**&©gC7X4rX&3;ft* fc § hmzftVtl&ts: btt^tDT-jb 

5»o ^250 ^D>yX*^V^ t, i iitt|IMfcfl|4t©*3pj|IJ(l3 = 15.98 kHz *»€>S-C^* 

W.2M PCG 49 



(Dtio 

TTSW ' 0 ' 0000625 »> 

250 

4(MHz) 

&©£f 0 15.98kHz t. 

(Dtio %\iW<TfSc.t^%\tta^<DT, t D x b 2-3 ©SfcBJCAoTLI: 

■So 



0 X h 2-3 ffiiS PCG 



100 


CLEAR &.HE000 


















110 


MEM$ ( &HE000 , 16 ) =HEXCHR$ ( "EB 46 23 4E 23 ED 


43 78 E0 


56 


23 


5E 


23 


CD 


18 


E0" ) 


120 


MEM$ ( &HE010 , 16 ) =HEXCHR$ ( "46 23 0E 00 CD 52 


E0 C9 E5 


D5 


01 


D0 


IF 


AF 


ED 


79" ) 


130 


MEM$ ( &.HE020 , 16 ) =HEXCHR$ ( "ED 4B 78 E0 21 00 


38 3E 00 


CD 


48 


E0 


ED 


4B 


78 


E0 " ) 


140 


MEM$ ( &.HE030 , 16 ) =HEXCHR$ ( "21 00 28 D1 D5 3E 


20 CD 48 


E0 


ED 


4B 


78 


E0 


21 


00" ) 


150 


MEM$ ( &HE040 , 16 ) =HEXCHR$ ( " 30 D1 7B CD 48 E0 


El C9 09 


44 


4D 


ED 


79 


03 


1 5 


20" ) 


160 


MEM$ ( &HE050 , 16 ) =HEXCHR$ ( "FA C9 IE 08 D9 F3 


01 01 1A 


ED 


78 


F2 


59 


E0 


ED 


78" ) 


170 


MEM$ ( &.HE060 ,16) =HEXCHR$ ( "FA 5E E0 D9 7E ED 


79 23 03 


00 


23 


2B 


3E 


0D 


3D 


C2 " ) 


180 


MEM$ ( &HE070 , 16 ) =HEXCHR$ ( "6E E0 ID C2 64 E0 


FB C9 00 


00 


00 


00 


00 


00 


00 


00" ) 


190 


DEFUSR0=&HE000 


















200 


9 


















210 


CGEN 1 : LOCATE 0 , 0 


















220 


FORI=0TO255 : PRINT #0 , CHR$ ( I ) ; : NEXT : PRINT 


















230 


CGEN 0 


















240 


• 


















250 


TIME=0 


















260 


FORI=0TO255 


















270 


A$=USR0 ( CHR$ ( &H7 , &HD0 ,48,1, &H 15) +STRING$ ( 8 , &H3 ) ) 
















280 


A$=USR0 ( CHR$ ( &H7 , &HD0 , 48 , I , &H16 ) +STRING$ ( 8 , &HC ) ) 
















290 


A$=USR0 ( CHR$ ( &H7 , &HD0 , 48 , I , &H17 ) +STRING$ ( 8 , &H30 ) ) 
















300 


NEXT 


















310 


PRINT TIME 


















320 


TIME=0 


















330 


FORI=0TO255 : DEFCHR$ ( I ) =STRING$ (24,0): NEXT 


















340 


PRINT TIME 


















350 


• 


















360 


’ A$=USR0 ( CHR$ ( &H7 , &HD0 , 48 , ? , &H?? ) +STRING$ ( 8 , &H?? ) ) 


: WIDTH 


80 










370 


* A$=USR0 ( CHR$ ( &H7 , &.HE8 , 24 , ? , &H?? ) +STRING$ ( 8 ,&H?? ) ) 


: WIDTH 


40: 


: SCREEN ? 


,0 


380 


* A$=USR0 ( CHR$ ( &H7 , &HE8 , 24 , ? , &H?? ) +STRING$ ( 8 , &H?? ) ) 


: WIDTH 


40 


: SCREEN ? 


,1 



£-f 210~230trCf ^T© PCG SrSiSLTiS < 0 ifcK 260~300 fit ‘T'XT© PCG * 
3&§£$|ELTL3;-5o CHR$ (A) ©*©'<? .*-*«:, WIDTH 80 OklOiOT* 
aHtfeox? y-y^-F©fc£te360tT* i £©&f?:££MT£<;n.)o ^ct, -r<*^T 
ttDEFCHRSXTUCi^^iii^^oTi/^o ^Ji&^fiJti£&©T k £>&o ?, *03 I 
fS;(i if — t V* i> t , Z. A/ b Ini C ~C, PolTJ b b 256 {@© PCG ^/eUT-S ©ii 13 

CRT 60Hz bu^T* 

§ 0 o £ D , HMWC60HIPCG *-fcy Vi-&f- + 256li-fe y ht5C 

a, 1 0 WlSMi© 3 0©ft>X^M^i^, 256 X 3 = 768 0©f- + y XW'gf 

i5o WjjoT, 768=60 = 12.8 (#) i>^tU50t*5, 

^i-eaiT< S©*C 3lg3$ PCG^7°n^*7 AT^o/So 



£-f«, 3 fg©ii§C'tS©T 2 bSo £©I§iSfifto*#;t;fcfc©t k W:*v>fc^'5 £ b& 



50 ig.mztiiz xi 



MW C ®T o X 38 < o 

U* h 2-4, 2-5 aiLt*5t^SJ:aE, >J X h 2-4 ®W^ 

«UX h 2-2 fc&fcA/t’HC-C&So JloT< 6(Dlt, E04E H © SETPCG *>feTJb4 0 S 
■f ti ORDER f- > £ 0 Cl £ TfnJ § Jf> o X S fr t t, 

w, ft, it8^M wooiaa, ^©oga, 

li©0Sa, fcV»3JBJ£CM'<£*.T f WORK (E0AC„) 24 hC# 

»L,TV>£©T?&S 0 E08D h ~E 0A3„ i>f;9©2l^-7'®#9MK |&g > * <D T h 
So icaitxiaii TLDU ^H^TbT BC i/s?x*a*o C4ofc*»if5i'©W»r 
*, rjp PO, ~J y F) Tf!l^LTViS>^'t‘S)So TLDIJ fcHfn7?^£ 

^£&v>©-C£>S 0 



* Y 2-4 


PCG 








. Z80 








.PHASE 


0E000H 


0016 




BLUE EQU 


15H+1 


0017 




RED EQU 


16H+1 


0018 




GREEN EQU 


17H+1 


E000 


EB 


EX 


DE , HL 


E00 1 


46 


LD 


B , ( HL ) ;HI 


E002 


23 


INC 


HL 


E003 


4E 


LD 


C , ( HL ) ; LOW 


E004 


23 


INC 


HL 


E005 


ED 43 E0AA 


LD 


( BCWORK ) , BC 


E009 


56 


LD 


D,(HL) ; COUNT 


E00A 


23 


INC 


HL 


E00B 


5E 


LD 


E , ( HL ) ; ASCI I CODE 


E00C 


23 


INC 


HL 


E00D 


CD E014 


CALL 


SET0 






; HL POINTS PCG 


DATA 


E010 


CD E04E 


CALL 


SETPCG 


E013 


C9 


RET 




E014 


E5 


SET0 : PUSH 


HL ;SAVE POINTER 


E015 


D5 


PUSH 


DE ; SAVE COUNT & ASCII i 


E016 


01 1FD0 


LD 


BC , 1FD0H ; FOR turbo 


E019 


AF 


XOR 


A 


E0 1 A 


ED 79 


OUT 


(C) , A 


E01C 


ED 4B E0AA 


LD 


BC , ( BCWORK ) 


E020 


21 3800 


LH 


HL , 3800H ;KANJI VRAM: 


E023 


3E 00 


LD 


A , 00H 


E025 


CD E044 


CALL 


SET1 


E028 


ED 4B E0AA 


LD 


BC, (BCWORK) 


E02C 


21 2800 


LD 


HL , 2800H ; ATTRIBUTE 


E02F 


D 1 


POP 


DE 


E030 


D5 


PUSH 


DE 


E03 1 


3E 20 


LD 


A , 20H ; PCG , COLOR=0 


E033 


CD E044 


CALL 


SET1 


E036 


ED 4B E0AA 


LD 


BC , ( BCWORK ) 


E03A 


21 3000 


LD 


HL , 3000H ; VRAM 


E03D 


D1 


POP 


DE 


E03E 


7B 


LD 


A , E ; ASCII CODE 


E03F 


CD E044 


CALL 


SET1 


E042 


El 


POP 


HL 


E04 3 


C9 


RET 




E044 


09 


SET1 : ADD 


HL , BC 


E045 


44 


LD 


B,H 


E046 


4D 


LD 


C , L ; BC=HL+BC 


E047 


ED 79 


SET2 : OUT 


(C) ,A 


E04 9 


03 


INC 


BC ; INC ADDRESS 


E04 A 


15 


DEC 


D ; DEC COUNTER 



IS 2^ PCG 51 



E04B 


20 


FA 




JR NZ.SET2 




E04D 


C9 






RET 










; Acc=ASCII 




E04E 


CD 


E086 


SETPCG : 


CALL ORDER ; 


CHANGE ORDER 


E05 1 


06 


16 


* 


LD B , BLUE 




E053 


0E 


00 




LD C , 00H 




E055 


16 


17 




LD D , RED 


RED 


E057 


IE 


18 




LD E, GREEN ; 


GREEN 


E059 


3E 


08 




LD A , 08H ; 


COUNTER 


E05B 


08 






EX AF , AF * 




E05C 


D9 






EXX 




E05D 


F3 




* 


DI 




E05E 


01 


1A01 




LD BC , 1A01H 




E06 1 


ED 


78 


VDSP0 : 


IN A , ( C ) 




E063 


F2 


E06 1 




JP P.VDSP0 




E066 


ED 


78 


VDSP1 : 


IN A , ( C ) 




E068 


FA 


E066 




JP M , VDSP1 




E06B 


D9 




’ 


EXX 




E06C 


08 






EX AF , AF ’ ; 


A ’ =COUNTER 


E06D 


ED 


A3 


SETP: 


OUT I ; 


16, OUT BLUE 


E06F 


42 






LD B , D ; 


4 


E07 0 


ED 


A3 




OUT I 


16, OUT RED 


E07 2 


43 






LD B , E ; 


4 


E07 3 


ED 


A3 




OUTI ; 


16, OUT GREEN 








; 16 + 4 + 16 + 4 + 16 = 56 




E07 5 


06 


16 


* 


LD B , BLUE ; 


7 








; 7 = 7 






E07 7 


08 




* 


EX AF , AF ’ 


4 


E07 8 


3E 


0B 




LD A , 0BH ; 


7 


E07A 


3D 




DLY : 


DEC A ; 


4 


E07B 


C2 


E07 A 




JP NZ.DLY ; 


10 


E07E 


08 






EX AF , AF ’ 


4 








;4+7+(4+10)*ll+4=169 




E07F 


0C 




* 


INC c ; 


4 


E080 


3D 






DEC A 


4 


E08 1 


C2 


E06D 




JP NZ , SETP ; 


10 








; 4+4+10 


= 18 










; 56+7+169+18=250 




E084 


FB 






El 




E085 


C9 






RET 










; CHANGE 


ORDER 










;B0,B1 , 


. . . ,B7 ,R0,R1 , . . . ,R7 ,G0,G1 G7 








; 


>B0,R0,G0,B1 ,R1 


, G 1 B7,R7 ,G7 


E086 


D9 




ORDER: 


EXX 




E087 


06 


08 




LD B , 8 


COUNTER 


E089 


D9 






EXX 




E08A 


11 


E0AC 




LD DE , WORK ; 


BUFFER 


E08D 


E5 




ORDER0 : 


PUSH HL 




E08E 


01 


0003 




LD BC , 3 




E09 1 


ED 


A0 


ORDER 1 : 


LDI 










; (DE)<- 


(HL).INC DE , INC HL , DEC BC 


E093 


E2 


E09E 




JP PO , ORDER2 


; 3 BYTES MOVED? 


E096 


79 






LD A , c ; 


SAVE C 


E097 


0E 


07 




LD C , 7 




E099 


09 






ADD HL , BC ; 


HL=HL+7 


E09A 


4F 






LD C , A ; 


BACK C 


E09B 


C3 


E09 1 




JP ORDER 1 




E09E 


El 




ORDER2 : 


POP HL 




E09F 


23 






INC HL 




E0A0 


D9 






EXX 




E0A1 


05 






DEC B ; 


DEC COUNTER 


E0A2 


D9 






EXX 




E0A3 


C2 


E08D 




JP NZ f ORDER0 


E0A6 


21 


E0AC 


* 


LD HL , WORK ; 


NEW PCG DATA 


E0A9 


C9 






RET 




E0AA 






BCWORK : 


DS 2 




E0AC 






WORK: 


DS 24 












END 





52 tsjfccaj&xi 



') * 2-5 3 ©a PCG 



100 CLEAR &HE000 



110 


MEM$ ( &.HE000 , 16 ) =HEXCHR$ ( 


"EB 


46 


23 


4E 


23 


ED 


43 


AA 


E0 


56 


23 


5E 


23 


CD 


14 


E0 " ) 


120 


MEM$ ( &.HE0 10, 16) =HEXCHR$ ( 


"CD 


4E 


E0 


C9 


E5 


D5 


01 


D0 


IF 


AF 


ED 


79 


ED 


4B 


AA 


E0 " ) 


130 


MEM$ ( &HE020 , 1 6 ) =HEXCHR$ ( 


"21 


00 


38 


3E 


00 


CD 


44 


E0 


ED 


4B 


AA 


E0 


21 


00 


28 


Dl") 


140 


MEM$ ( &.HE0 30 , 16 ) =HEXCHR$ ( "D5 


3E 


20 


CD 


44 


E0 


ED 


4B 


AA 


E0 


21 


00 


30 


D1 


7B 


CD" ) 


150 


MEM$ ( &HE040 ,16) =HEXCHR$ ("44 


E0 


El 


C9 


09 


44 


4D 


ED 


79 


03 


15 


20 


FA 


C9 


CD 


86" ) 


160 


MEM$ ( &HE050 , 16 ) =HEXCHR$ ( 


"E0 


06 


16 


0E 


00 


16 


17 


IE 


18 


3E 


08 


08 


D9 


F3 


01 


01" ) 


170 


MEM$ ( &HE060 , 1 6 ) =HEXCHR$ ( 


" 1A 


ED 


78 


F2 


61 


E0 


ED 


78 


FA 


66 


E0 


D9 


08 


ED 


A3 


42" ) 


180 


MEM$ ( &HE070 , 16 ) =HEXCHR$ ( 


"ED 


A3 


43 


ED 


A3 


06 


16 


08 


3E 


0B 


3D 


C2 


7A 


E0 


08 


0C" ) 


190 


MEM$ ( &HE080 , 16 ) =HEXCHR$ ( 


"3D 


C2 


6D 


E0 


FB 


C9 


D9 


06 


08 


D9 


11 


AC 


E0 


E5 


01 


03" ) 


200 


MEM$ ( &HE090 , 1 6 ) =HEXCHR$ ( 


"00 


ED 


A0 


E2 


9E 


E0 


79 


0E 


07 


09 


4F 


C3 


91 


E0 


El 


23" ) 


210 


MEM$ ( &HE0A0 , 16 ) =HEXCHR$ ( 


"D9 


05 


D9 


C2 


8D 


E0 


21 


AC 


E0 


C9 


00 


00 


00 


00 


00 


00" ) 



220 DEFUSR0=4HE000 
230 ’ 

240 CGEN 1: LOCATE 0,0 

250 FORI=0TO255: PRINT #0 ,CHR$ ( I );: NEXT : PRINT 
260 CGEN 0 
270 ’ 

280 TIME=0 
290 FORI=0TO255 

300 A$=USR0 ( CHR$ ( &H7 , &HD0 , 48 , I ) +STRING$ ( 24 , 1) ) 

310 NEXT 

320 PRINT TIME 



Cl © J: — C L T tz 7*— 9 & E06D h ;£p b OUTI D, 

W, &<D 3^M hfuPCGCtyHtn4fcm4, OUTI 

t-fS C £ (C, OUTI fi, 

OUT ?©■?£> 5 <> ioT, 1500H#JfiC OUT Ufcv»4€>tf, BC=& 

1600HCbTisi»*»ntf4<S»*v»OT*So tftftr-A/o * fctfrfEI-'** d t tt, f©3 

h£OUTiTSfflP E I3'C£>£o *6 60 ? n y ? <♦ £ v»©|fle8?£ § 6* 

Vii-TJbSo L*»U £, 56?ny*TJR£oTV»-S© 

£*»&.* Lb L?L£5 <D?$>6 0 

£©3jg®PCG5£*£iI-5 fc, 256 f@© PCG £*** 4 ltC45„ L^L 
£©ttC*0|®fcL'r£*Stt;fc*»e>Ktt, ! Jfc#*. 

&Vtll£%<?Aso 24fgj$ PCG£«Ti.S 0 — 

PCG VRAM_|<7>38KlTifc) LtUfc^o 

fc©3, HC^©ffiW*fKS*©-e*S oflftCRTC^^oW, CRTC©Jg6i^ 
X? (R6) fi Th^tZo C 3 tt 25 *©*»**, 7if> LT 18 C 

UTUtdfc, 7fi4f**®*£ 

*>£>, 3fgilx 8fg®-C24fgIS-r«.-5o h 2-6, BASIC 

-Z)©*5U * b 2-7 T&6 0 !)X)>2-6?^oTH50li, CRTC tfo TUS K*» 
it, !)Xh 2-4© 3fg® PCG^t^^fV^o flWoJ t D X h 2-7 ©iftBjMfTo'C 
US 5 ©T£>£ 0 



<) * h 2-6 24 tej§ PCG IttlOTlSttfgSS-fr 







. Z80 
.PHASE 


0E000H 


0016 


BLUE 


EQU 


15H+1 


0017 


RED 


EQU 


16H+1 


0018 


GREEN 


EQU 


17H+1 



*2$ PCG 53 



; SET CRTC 



E000 


01 


1800 




LD 


BC , 1 800H ;SET CRTC 


E003 


3E 


06 




LD 


A , 6 


E005 


ED 


79 




OUT 


(C) , A 


E007 


03 






INC 


BC 


E008 


3E 


12 




LD 


A, 18 ; DISP JUST 18 LINES 


E00A 


ED 


79 




OUT 


(C) ,A 


E00C 


01 


1FD0 


START: 


LD 


BC , 1FD0H ;FOR turbo 


E00F 


AF 






XOR 


A 


E010 


ED 


79 




OUT 


(C) , A 


E012 


01 


3DA0 


’ 


LD 


BC , 3800H+5A0H ;KANJI VRAM 


E015 


24 


0260 




LD 


HL.260H ; COUNTER 


E018 


16 


00 




LD 


D , 00H 


E0 1 A 


CD 


E070 




CALL 


SETIO 


E01D 


01 


25A0 


* 


LD 


BC , 2000H+5A0H ; ATTRIBUTE 


E020 


21 


0260 




LD 


HL , 260H ; COUNTER 


E023 


16 


20 




LD 


D , 20H 


E025 


CD 


E070 




CALL 


SETIO 


E028 


21 


E200 


* 


LD 


HL , 0E200H ; DATA AREA 


E02B 


22 


E0AF 




LD 


( HLWORK ) , HL ;SAVE ADDRESS 


E02E 


AF 






XOR 


A ;TOP OF ASCII CODE 


E02F 


F5 




LOOP : 


PUSH 


AF 


E030 


CD 


E056 




CALL 


SET8 


E033 


2A 


E0AF 




LD 


HL, (HLWORK) ; DATA ADDRESS 


E036 


CD 


E07A 




CALL 


SETPCG 


E039 


2A 


E0AF 




LD 


HL, (HLWORK) 


E03C 


01 


00C0 




LD 


BC , 24*8 


E03F 


09 






ADD 


HL , BC ;NEW ADDRESS 


E040 


22 


E0AF 




LD 


(HLWORK) , HL 


E043 


FI 






POP 


AF 


E044 


C6 


08 




ADD 


A, 8 *, CHECK COUNTER 


E046 


C2 


E02F 




JP 


NZ , LOOP 


E049 


01 


1800 


* 


LD 


BC, 1800H 


E04C 


3E 


06 




LD 


A, 6 


E04E 


ED 


79 




OUT 


(C) , A 


E050 


03 






INC 


BC 


E05 1 


3E 


19 




LD 


A, 25 ; CRTC WO MODOSU 


E053 


ED 


79 




OUT 


(C) , A 


E055 


C9 






RET 




E056 


01 


35A0 


SET8 : 


LD 


BC , 3000H+5A0H 


E059 


57 






LD 


D , A ; ASCII CODE 


E05A 


IE 


08 




LD 


E , 8 ; COUNTER 


E05C 


C5 




SET80 : 


PUSH 


BC 


E05D 


21 


0030 




LD 


HL , 48 


E060 


CD 


E070 




CALL 


SETIO 


E063 


Cl 






POP 


BC 


E064 


21 


0050 




LD 


HL , 80 


E067 


09 






ADD 


HL , BC 


E068 


44 






LD 


B , H 


E069 


4D 






LD 


C , L ;BC=NEXT ADDRESS 


E06A 


14 






INC 


D ; INC ASCII CODE 


E06B 


ID 






DEC 


E ; DEC COUNTER 


E06C 


C2 


E05C 




JP 


NZ , SET80 


E06F 


C9 






RET 




E070 


ED 


51 


SETIO: 


OUT 


(C) ,D 


E07 2 


03 






INC 


BC 


E07 3 


2B 






DEC 


HL 


E07 4 


7C 






LD 


A , H 


E07 5 


B5 






OR 


L 


E076 


C2 


E070 




JP 


NZ, SETIO 


E079 


C9 






RET 










; Acc=ASCII 




E07 A 


06 


16 


SETPCG : 


LD 


B , BLUE 


E07C 


0E 


00 




LD 


C , 00H 


E07E 


16 


17 




LD 


D , RED ; RED 


E080 


IE 


18 




LD 


E, GREEN ; GREEN 


E082 


3E 


40 




LD 


A , 08H*8 ; COUNTER, 8 CHARS! 


E084 


08 






EX 


AF, AF’ 


E085 


D9 






EXX 




E086 


F3 




’ 


DI 




E087 


01 


1A01 




LD 


BC, 1A01H 


E08A 


ED 


78 


VDSP0 : 


IN 


A, (C) 



xi 



E08C 


F2 E08A 




JP 


P , VDSP0 






E08F 


ED 78 


VDSP1 : 


IN 


A, (C) 






E09 1 


FA E08F 




JP 


M , VDSP1 






E094 


D9 


* 


EXX 








E095 


08 




EX 


> 

> 

**1 


; A’ =COUNTER 


E096 


ED A3 


SETP : 


OUT I 




; 16 , OUT 


BLUE 


E098 


42 




LD 


B,D 


; 4 




E099 


ED A3 




OUT I 




; 16 , OUT 


RED 


E09B 


43 




LD 


B , E 


;4 




E09C 


ED A3 




OUT I 




; 16 , OUT 


GREEN 






; 16 + 4 + 16 + 4 + 16 


= 56 






E09E 


06 16 


; 7 = 7 


LD 


B , BLUE 


; 7 




E0A0 


08 


9 


EX 


AF , AF * 


; 4 




E0A1 


3E 0B 




LD 


A , 0BH 


; 7 




E0A3 


3D 


DLY : 


DEC 


A 


; 4 




E0A4 


C2 E0A3 




JP 


NZ , DLY 


; 10 




E0A7 


08 




EX 


AF , AF ' 


; 4 








;4+7+(4+10)*ll+4=169 






E0A8 


0C 


1 


INC 


C 


; 4 




E0A9 


3D 




DEC 


A 


; 4 




E0AA 


C2 E096 




JP 


NZ , SETP 


; 10 








; 4 + 4 + 1 0 


= 18 












; 56 + 7 + 169 + 18 = 


250 






E0AD 


FB 




El 








E0AE 


C9 




RET 








E0AF 




HLWORK : 


DS 


2 







END 



') * h 2-7 24 ffijg PCG £ig 



100 CLEAR &HE000 



110 


MEM$ ( &HE000 ,16) =HEXCHR$ ( 


"01 


00 


18 


3E 


06 


ED 


79 


03 


3E 


12 


ED 


79 


01 


D0 


IF 


AF" ) 


120 


MEM$ (&HE010 , 16 ) =HEXCHR$ ( 


"ED 


79 


01 


A0 


3D 


21 


60 


02 


16 


00 


CD 


70 


E0 


01 


A0 


25" ) 


130 


MEM$ ( &HE020 , 16 ) =HEXCHR$ ( 


"21 


60 


02 


16 


20 


CD 


70 


E0 


21 


00 


E2 


22 


AF 


E0 


AF 


F5" ) 


140 


MEM$ ( &HE030 , 1 6 ) =HEXCHR$ ( 


"CD 


56 


E0 


2A 


AF 


E0 


CD 


7A 


E0 


2A 


AF 


E0 


01 


C0 


00 


09" ) 


150 


MEM$ ( &HE040 , 16 ) =HEXCHR$ ( 


"22 


AF 


E0 


FI 


C6 


08 


C2 


2F 


E0 


01 


00 


18 


3E 


06 


ED 


79" ) 


160 


MEM$ ( &HE050 , 1 6 ) =HEXCHR$ ( 


"03 


3E 


19 


ED 


79 


C9 


01 


A0 


35 


57 


IE 


08 


C5 


21 


30 


00" ) 


170 


MEM$ ( &HE060 , 1 6 ) =HEXCHR$ ( 


"CD 


70 


E0 


Cl 


21 


50 


00 


09 


44 


4D 


14 


ID 


C2 


5C 


E0 


C9 " ) 


180 


MEM$ ( &HE070 ,16) =HEXCHR$ ( 


"ED 


51 


03 


2B 


7C 


B5 


C2 


70 


. E0 


C9 


06 


16 


0E 


00 


16 


17") 


190 


MEM$ ( &HE080 , 1 6 ) =HEXCHR$ ( 


"IE 


18 


3E 


40 


08 


D9 


F3 


01 


01 


1A 


ED 


78 


F2 


8A 


E0 


ED" ) 


200 


MEM$ ( &HE090 , 16 ) =HEXCHR$ ( 


"78 


FA 


8F 


E0 


D9 


08 


ED 


A3 


42 


ED 


A3 


43 


ED 


A3 


06 


16") 


210 


MEM$ ( &HE0A0 , 16 ) =HEXCHR$ ( 


"08 


3E 


0B 


3D 


C2 


A3 


E0 


08 


0C 


3D 


C2 


96 


E0 


FB 


C9 


00" ) 



220 » 

230 WIDTH 80 
240 CGEN 1 

250 FOR 1=0 TO 255:PRINT #0 CHR$ ( I );: NEXT : PRINT 

260 CGEN 0 

270 FOR 1=0 TO 255 

280 MEM$ ( &HE200+I*24 , 24 ) = STRINGS (24,1) 

290 NEXT 
300 TIME=0 

310 FOR 1=0 TO 1 0 : CALL &HE000:NEXT 
320 PRINT TIME 



D X h 2-7 WIDTH & 80 ') X b 2-6 

-TSfcftC, WIDTH 80 Lfrfc PCG fllOT — 

tt, ft, *, 43, E200 H *>‘=> 

6144 (1800 h ) ''M h £ t C^otV^o 270~290frT v , -£©/S— Or 

-*fcflFoTV»4;bfrTfc5o HPH© PCG5£S(4 TCALL &HE000J -^TOKtJfe 
-So mtUZVT lOElllfTLTV^o 256fS©S«C^^-SB#raa^J0.6#tm 

fco ST, aHWett^iB®**w3n*V»VRAM (?) CLT 26X 3 =78«a^T 
% X o a TfcSo 11(2 16 X 3 =48fg^tT^oT*./S 

* 2 ¥ PCG 55 



(Dtztf, y Blf^TPCGtD^SC^bTL^ a 

(Dtzo Zft^%±(Dtz)sb\z2A\%mX’t}zisbXi5^tz<DX°hZ>{%(Dffit!:-m3-~-*f-\t, b 

a-X*bT, «<V7 h7x7T*7^f 5 yy’£fc 0, 

&2>o b b b) 0 



CG ^SS»ttJU 

BASIC © CGPAT$M2&Cftj£X V * b 2-8, 2-9 C ROM 

CG ^U^-iiityv'fyA^to 'JXF 2-2 — ^7 £##C-ftU£, PCG*»6tt*ffr*- i t 
%kim&x$>65 1, »^KJpjifb'rb*'5©T*So L’CV'fc^r §£ 

5<DXh& 0 



h 2-8 


ROM CG L (7)}»«i§a$-9- 






E000 


EB 


; 


. Z80 
.PHASE 

EX 


0E000H 
DE , HL 


E001 


46 




LD 


B,(HL) ; HI 


E002 


23 




INC 


HL 


E003 


4E 




LD 


C , ( HL ) ; LOW 


E004 


23 




INC 


HL 


E005 


ED 


43 E07 7 


LD 


( BCWORK ) , BC 


E009 


56 




LD 


D , ( HL ) ; COUNT 


E00A 


23 




INC 


HL 


E00B 


5E 




LD 


E, (HL) ; ASCII CODE 


E00C 


23 




INC 


HL 


E00D 


CD 


E017 


CALL 


SET0 


E010 


01 


1400 


LD 


BC, 1400H 


E013 


CD 


E05 1 


CALL 


READCG 


E016 


C9 




RET 




E017 


E5 


SET0 : 


PUSH 


HL ; SAVE POINTER 


E018 

2 


D5 




PUSH 


DE ; SAVE COUNT and ASCII CO 


E019 


01 


1FD0 


LD 


BC , 1 FD0H ; FOR turbo 


E01C 


AF 




XOR 


A 


E01D 


ED 


79 


OUT 


(C) ,A 


E01F 


ED 


4B E077 


LD 


BC , ( BCWORK ) 


E023 


21 


3800 


LD 


HL , 3800H ;KANJI VRAM(turb 


1 

E026 


3E 


00 


LD 


A , 00H 


E028 


CD 


E047 


CALL 


SET1 


E02B 


ED 


4B E077 


LD 


BC, (BCWORK) 


E02F 


21 


2800 


LD 


HL , 2800H ‘.ATTRIBUTE 


E032 


D1 




POP 


DE 


E033 


D5 




PUSH 


DE 


E034 


3E 


00 


LD 


A , 00H ; ROM CG , COLOR=0 


E036 


CD 


E047 


CALL 


SET1 


E039 


ED 


4B E077 


LD 


BC , ( BCWORK ) 


E03D 


21 


3000 


LD 


HL , 3000H ; VRAM 


E040 


D1 




POP 


DE 


E04 1 


7B 




LD 


A , E ; ASCI I CODE 


E042 


CD 


E047 


CALL 


SET1 


E04 5 


El 


’ 


POP 


HL 


E046 


C9 




RET 




E04 7 


09 


SET1 : 


ADD 


HL , BC 


E048 


44 




LD 


B , H 


E049 


4D 




LD 


C,L ; BC=HL+BC 


E04 A 


ED 


79 SET2 : 


OUT 


(C) , A 


E04C 


03 




INC 


BC ; INC ADDRESS 


E04D 


15 




DEC 


D ; DEC COUNTER 



56 fSlfcf;tU& Xl 



E04E 


20 FA 




JR 


NZ , SET2 




E050 


C9 




RET 






E05 1 


IE 08 


READCG : 


: LD 


E , 08H 


; COUNTER 


E053 


D9 




EXX 






E054 


F3 


* 


DI 






E055 


01 1A0 1 




LD 


BC, 1A01H 




E058 


ED 78 


VDISP0 : 


IN 


A, (C) 




E05A 


F2 E058 




JP 


P , VDISP0 




E05D 


ED 78 


VDISP1 : 


IN 


A, (C) 




E05F 


FA E05D 




JP 


M , VDISP1 




E062 


D9 


’ 


EXX 






E063 


ED 78 


SETP : 


IN 


A, (C) 


; 12, READ 1 BYTE 


E065 


77 




LD 


(HL) ,A 


; 7 , STORE DATA 


E066 


23 




INC 


HL 


; 6 , INC POINTER 


E067 


03 




INC 


BC 


; 6 , INC I/O ADDRESS 






; 7 + 12 + 6 + 6 = 31 






E068 


00 


* 


NOP 




; 4 


E069 


23 




INC 


HL 


;6 


E06A 


2B 




DEC 


HL 


; 6 , DUMMY 






; 4 + 6 + 6 = 


16 






E06B 


3E 0D 


* 


LD 


A , 0DH 


;7 


E06D 


3D 


DLY : 


DEC 


A 


;4 


E06E 


C2 E06D 




JP 


NZ , DLY 


; 10 


E07 1 


ID 




DEC 


E 


;4 


E072 


C2 E063 




JP 


NZ , SETP 


; 10 






; 7+ ( 4 + 10 ) * 13 + 4 


+10=203 








; 31 + 16 + 203 = 250 






E07 5 


FB 




El 






E076 


C9 




RET 






E07 7 




BCWORK : 


DS 


2 










END 







U ^ h 2-9 ROM CG Wifrth L 



100 CLEAR &HE000 



110 


MEM$ ( &HE000 , 1 6 ) =HEXCHR$ ( "EB 


46 


23 


4E 


23 


ED 


43 


77 


E0 


56 


23 


5E 


23 


CD 


17 


E0 " ) 


120 


MEM$ ( &HE0 1 0 , 1 6 ) =HEXCHR$ ( "01 


00 


14 


CD 


51 


E0 


C9 


E5 


D5 


01 


D0 


IF 


AF 


ED 


79 


ED" ) 


130 


MEM$ ( &HE020 ,16) =HEXCHR$ ( " 4B 


77 


E0 


21 


00 


38 


3E 


00 


CD 


47 


E0 


ED 


4B 


77 


E0 


21") 


140 


MEM$ ( &HE030 , 16 ) =HEXCHR$ ( "00 


28 


Dl 


D5 


3E 


00 


CD 


47 


E0 


ED 


4B 


77 


E0 


21 


00 


30" ) 


150 


MEM$ ( &HE040 , 16 ) =HEXCHR$ ( "Dl 


7B 


CD 


47 


E0 


El 


C9 


09 


44 


4D 


ED 


79 


03 


15 


20 


FA") 


160 


MEM$ ( &HE050 , 16 ) =HEXCHR$ ( "C9 


IE 


08 


D9 


F3 


01 


01 


1A 


ED 


78 


F2 


58 


E0 


ED 


78 


FA") 


170 


MEM$ ( &HE060 , 1 6 ) =HEXCHR$ ( " 5D 


E0 


D9 


ED 


78 


77 


23 


03 


00 


23 


2B 


3E 


0D 


3D 


C2 


6D" ) 


180 


MEM$ ( &HE070 , 1 6 ) =HEXCHR$ ( "E0 


ID 


C2 


63 


E0 


FB 


C9 


00 


00 


00 


00 


00 


00 


00 


00 


00" ) 



190 DEFUSR0=&HE000 
200 ’ 

210 WIDTH80 
220 C=0 

230 A$=USR0 ( CHR$ ( &H7 , &HD0 , 48 , C ) + STRINGS ( 8 , &H30 ) ) 
240 A$=RIGHT$ ( A$ , 8 ) 

250 PRINT #0 A$ 

260 PRINT #0 LEFT$(CGPAT$(C) ,8) 



turbo IC3SI+3PCG/CG 

Zhx, fSfct&b-pT turbo X$> 2> 0 Z. Z. &T<Dfgii'b bfri'Z £-}£, XI © PCG 12 
*.&<£>*£&, PCGfcm, o t-L^(DT$> 

•So SHIM b ***>;&> 9 

-f£'£©-C, ££*»**, tLt, 5 

O C o ^ + -^fc*©j&K:ov>TtiIEL<3ji?L 

TV>fcP>L<, turbo T 12 n#3S7*-feX*- FJ t V>"5 b tlX 5. Ztl 

%2M PCG 57 



«, CG77-lzX©T^fS£ VRAM, VRAM, 7HJ t?*- b b, ft 3 

-1" b £##&tP7iUTigif X o C Ltzd &C, 
fcr^-feXpTIBcUfc'beDTJbSo ^>£0, 

-So b*^a^bv^hcy7 ^x7T7-f S if-t 

k, turbo **^“FWC,»¥C^'f s n.S©/io^*bt>,PCG 

b L «fc -5 t UT, CPU OUT ^ZmftLtzttZ fc, S®SSFlC7x 
^ b^U^T?^ S. 7 7^Wl§©T*£>-So b fcteWc < W3Jf <£■ 

7:^&fc©-e, CPU «mife^-&'5tiS.bU-r*So T, ^©IlMWIOKC&o/li: 
^6TCPU crgJ^Aii-So CPUttfirfc»^1*K0UT^*^7UT, £fc4MHz 
© X f 7 -ftklt S ©T'^ -S o 

turboT*«c:©ji]l7 7 4zX;e-Fb:<£ D, 256{I© PCG £, (S^fbg^- K (200 7 A 
» (DtZfo 0.5#, iS^g^e-F (400 7^7) ©fc#^ 0.27 *:©-?& 
S-o £fe&<S'SYMBOL£fti:«;*;t//CL>9> < *-TfcU£TfcU 

<JXb2-10, 2-11 T'*S 0 D X b 2-10 (i;©t©7 

0 X b 2-10 turbo ffl CG R/W 7 d 7^ A<Z>®t£KgiUb 



. Z80 

.PHASE 0E000H 



E000 


EB 


EX 


DE , HL 




E00 1 


01 20D0 


LD 


BC, 1FD0H+100H 


E004 


ED A3 


OUT I 




; DATA TO ( 1FD0H ) 


E006 


01 40FF 


LD 


BC , 3FFFH+100H 


E009 


ED A3 


OUT I 




; KAN JI VRAM 


E00B 


01 28FF 


LD 


BC, 27FFH+100H 


E00E 


ED A3 


OUT I 




•.ATTRIBUTE 


E010 


01 38FF 


LD 


BC , 37FFH+ 100H 


E013 


ED A3 


OUT I 




; VRAM 


E015 


56 


LD 


D, (HL) 


; COUNT 


E016 


23 


INC 


HL 




E017 


5E 


LD 


E, (HL) 


; STEP 


E018 


23 


INC 


HL 




E019 


46 


LD 


B, (HL) 


; 14H, 15H, 16H or 17H 


E0 1 A 


23 


INC 


HL 




E01B 


0E 00 


LD 


C , 00H 




E01D 


7E 


LD 


A, (HL) 




E01E 


23 


INC 


HL 


; HL POINTS DATA AREA 


E01F 


B7 


OR 


A 


; A=0 THEN SETPCG ELS] 


E020 


C2 E02E 


JP 


NZ , READ 




E023 


04 


WRITE: INC 


B 




E024 


ED A3 


OUT I 






E026 


79 


LD 


A , C 




E027 


83 


ADD 


A , E 




E028 


4F 


LD 


C, A 


; C=C + STEP 


E029 


15 


DEC 


D 




E02A 


C2 E023 


JP 


NZ , WRITE 




E02D 


C9 


RET 






E02E 


ED A2 


READ: INI 






E030 


04 


INC 


B 




E03 1 


79 


LD 


A , C 




E032 


83 


ADD 


A , E 




E033 


4F 


LD 


C, A 


;C=C+STEP 


E034 


15 


DEC 


D 





55 t£i£(cft&Xl 



E035 

E038 



C2 E02E 
C9 



JP 

RET 



NZ , READ 



END 



'i^l' 2-11 turbo CG R/W 7°n V =7 A 



100 CLEAR &HE000 



110 


MEM$ ( &HE000 ,16) =HEXCHR$ ( 


"EB 


01 


D0 


20 


ED 


A3 


01 


FF 


40 


ED 


A3 


01 


FF 


28 


ED 


A3" 


120 


MEM$ ( &HE0 10 , 16 ) =HEXCHR$ ( 


"01 


FF 


38 


ED 


A3 


56 


23 


5E 


23 


46 


23 


0E 


00 


7E 


23 


B7 " 


130 


MEM$ ( &HE020 , 16 ) =HEXCHR$ ( 


"C2 


2E 


E0 


04 


ED 


A3 


79 


83 


4F 


15 


C2 


23 


E0 


C9 


ED 


A2" 


140 


MEM$ ( &HE030 , 1 6 ) =HEXCHR$ ( 


"04 


79 


83 


4F 


15 


C2 


2E 


E0 


C9 


00 


00 


00 


00 


00 


00 


00" 



150 DEFUSR0=&HE000 
160 ’ 

170 WIDTH 40 

180 ’12345 6 7 8 

190 ’ 1FD0 , KANJI , ATT , VRAM , COUNT ( 16/8 ) , STEP ( 2/ 1 ) ,1/0 PORT HIGH, R/W 
200 ’ 

2 1 0 ’ 8 * 8 ROM C G & tf ( 7 il' 7 7 ^ h) 

220 A$=USR0 ( CHR$ ( &H23 ,0,0,66,8,2,&H14,1) +STRING$ (48,0)): L=8 : GOSUB ,, DUMP" 

230 ’ 8 * 1 6 (D ROM C G $ sf tf ( 7 )l/ 7 r ^ 7 M 

240 A$=USR0(CHR$(&H63 ,0,0 ,66 , 16, 1 ,&H14 , 1 ) +STRING$ ( 4 8 , 0 ) ) : L= 1 6 : GOSUB"DUMP" 

250 ’8*160) ROM CG^itr (1^ : IT 35 j] <D £ ffiij ) 

260 A$=USR0 ( CHR$ ( &H6 3 , &H86 , 0 , &HDA ,16, 1 ,&H14, 1 ) +STRING$ ( 48 , 0 ) ) : L= 16 : GOSUB"DUMP" 
270 SUJI$=A$ 

280 ’ 

290 GOSUB" ALL" 

300 ’ 

310 ’PCG^y-V^t-KT-fevh 

320 A$=USR0 ( CHR$ ( &H23 , 0 , &H20 , 0,8,2,&H15,0) +STRING$ ( 8 , &H3 ) ) 

330 A$=USR0 ( CHR$ ( &H23 , 0 , &H20 , 0 , 8 , 2 , &H1 6 , 0 ) +STRING$ ( 8 , &HC ) ) 

340 A$=USR0 ( CHR$ ( &H23 , 0 , &H20 , 0 , 8 , 2 , &H 1 7 , 0 ) +STRING$ ( 8 , &H30 ) ) 

350 ’ 

360 - F t t 7 h 

370 A$=USR0 ( CHR$ ( &H23 , &H 1 0 , &H20 , 4 , 16 , 1 , &H 1 5 , 0 ) +SUJI $ ) 

380 A$=USR0 (CHR$ ( &H23 , &.H10 , &H20 , 4 , 16 , 1 , &H16 , 0 ) +SUJI$ ) 

390 A$=USR0 ( CHR$ ( &H23 , &H 10 , &H20 , 4 , 16, 1 , &H17 , 0 ) +SUJI $ ) 

400 ’ 

410 OUT &H31A4.&H4 
420 OUT &H39A4 , &H 1 0 

430 OUT &H2 1A4 , &H27 : ’ £ 35 £ ^ ^ 

440 END 
450 ’ 

460 LABEL" DUMP" 

470 A$=MID$ ( A$ , 9 , L ) 

480 FOR 1=1 TO L 

490 B=ASC(MID$(A$ ,1,1)) : B$=RIGHT$ ( " 0000000 " +BIN$ ( B ) ,8) :PRINTB$ 

500 NEXT: PRINT 
510 Q$=INKEY$ ( 1 ) 

520 RETURN 
530 ’ 

540 LABEL" ALL" 

550 CLS : KMODE 0 

560 CGEN 1: LOCATE 0,0 

570 FOR 1=0 TO 255: PRINT #0 , CHR$ ( I ) ; : NEXT 
580 CGEN 0: KMODE 1 
590 RETURN 



ty7’7TiW;7 , n^7A0t?li-#IH60^, & A, t turbo CD PCG, ROM 
CG, V 

X h 2-10©4 , 0;u-X > OE028 H #±fei; E033 H #iteTC d 

l> X h 2-11 (D 180, 190 fx*%X^tzt£ 

• 1FD0 h ^©t-X 

• VRAM ^<Dt~7 

• 7 b y 

• VRAM ^0)7—7 



m2m pcg 59 



• COUNT (8x8 *Rtr 8 x 16 *Rtf A») 

• STEP (8X84^2, 8 x 16 & £ 1 ) 

• I/O ±- b ©±{47 Fi/X (14„ — 17 h ) 

• R/W © 7 7 7* (Rtf = 1 /« < = 0 ) 
t &oTt>£o 

210 6> «, Jf8x8© ROM CG (DMfrtii t T£> S 0 ASCII 3 - Kfct 66= "B" T 

^So W, 1 ^X7-7*S23 H T, ® 2-3 £j|£ fc bfy b 6 = 0, t*n5=lti5 0 « 
*?% 8 7X7 CG77-feXT% ifUTX-feXT^So fcofc, Uy b 5 ©KRTttrPCGJ 
k4otv»i 0 Sftgtk, ST, *6 ^?t<“7j&*2K:*oT^S)&*, *M?*©J: 3 C* 
8x8© TBJ ©/*7-Vtt, RjjsSft.3 k Stt 

7C h , 42 h , 

k^otv^CW, Sc^tBTk: 

7C h , 7C„, 42„, 42„, 

fc 2gf t Oi^!5igUTLt dOrtfo ^€> TBC=BC+ 2 J k ITV»5 0«, 230fr* i ^tt 
By F6=lk*D, 8 X16 © CG 77 ±XT*>S 0 £©t?y b 6 Ei 9, 77 

-tz X 7 -5 ROM £ © T& £ (i?± S CG £ £ t>) 0 250 {?*> ■=> ©St? ROM 

©tsI&tijL {>|nIU<k '5'& < b©7 ! '^i-So 

&C 310fr*»6 2SPCG £-tzy b ltt^ 0 turbo T© PCG tz.lt, 8X8kLtftb 
Ft, 8 X16 fcUTM^tvS^^-KO— o©*- F)&*fc5 0 fl-?* 
-FOi^S«#lk, ^©^©^^#@0 PCG 2{@*U{i©8 X16©;£?i: Lti 
*>*i* OfcfcAtfO i: 1, 2 k 3 4 t*©IS)o lot, 16xi6©gt?«4{S©PCG££{fc 
S-frTfFS £ k:^-C#S±U-C*-5 0 25674 = 64 T, turbo fi 64 {I©g|?©7t-?£if T £ 



0 2-3 IFDOh =ffliffi i g i a^- b <7)^1* 



x-7l*9g 


zi > h □— JU 


fcf *y h 0 


0=ft»***37(2007-r» 

1 = S»«®*3 7(4007'('>) *-*«*>** 


h: v h 1 


0=1*77^/ K-y b 
1=24:7X7/ b'-y b 


t'7h 2 


0 =y-vju ( 8 7X7/CHAR)(25fr, 201r) 
1=31? (I 67 x 7/CHAR)(12bf, 101 t) 


t i"j h 3 


0 = 'O? O^tf 

l=/\'>77 


\Z"j h 4 


0=''*>70X7-tex 
l = '\'>71T7-tzX 


t'7h 5 


0 = PCG3 >/<f7 7-teX 

1 = PCG«*X7-tzX 


fc'-y b 6 


0=87X7 CGX7-trx 
l = 167X7CGX7-fex 


t*7h 7 


0 = T 7 > 7 -f >4' L 

1 = 



60 tmictb* xi 



ikCftSo 410fr*6fcUIll©£¥&*3teRLTV»4o «?VRAM01fyh4i»So 
TV>T, FCfcoTViSjSKffiio CilCi D PCG © 4 # t 5#**±TK*oT 

i} tt %> it) ~C $o %> 0 

ULttf PCG ^brrli-3 tZo XI Ttt PCG £ fc C <k t) ALL BASIC T , £ t 
hfcM'<6 1 7~l*tfT%XL&5<D’C&& 0 bM^ZOT&Z 0 t 

vObit-C, PCGtty-A^il*JSjS9*©TJbofco 
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■ 


S3S 






1 ttttttttttttt 






XeS 













3. hCfr-StoWTio 

9I?3 — K<5^S$ 

^©AB^Iotv^ £ — c.gl^ci ASCII 3 — FftiftlUbJ: 5 C, r?I?3 — FJ 
&§ &©**£> (9, SEJSSEHC— : SI^tv^OTIiSo fi'ttdt, 3 ©81^3 — F t 
n^3BHi:ti5tfe040^o ST, »5U»3fce t ^©I?3-KCli3SSi5 

saifflSflbT^-so-r^So 

© JIS iS^3- K 
© E£3-K 
© '>7 1 Jisill^a— K 

TibSo bti?>ttHoi: feT2^M h 3- FJ, oJD, 2 aM 

3-FT2b-5 0 

©ST, JIS||?3-F©«^tt, 

±{4/nM h (l^MIS) (J 21 h ~7E„ 

Tfi^M h (2^b@) fe 21„~7E„ 

-fearfrC rtfj ©JIS3-Ftt3B2AHT2b5o 

$T, It, 21 H ~7E H b;M£oTb>&V>3 ti'b bftfrZ <t 5 C, 3© 

3-FCtt rptraj **Tjm»$o 0000 H ~2120„**S^TSb, 217F„~2220„ 

*ifi^V»TVsS©Ti»So fc, t'^^V t-D-^3 

-F£A;ftT:< **»ofc^e.©J:'5T2b5o ^SO, ASCna-FTfi 00„~20„tt(20 H © 
X^-Xlil5 ttif) 3 y h o— ;U3 — F t bT«B*«f«H*«l!) ST 6*lTi/»Sa»6, 

3 &©T*<£>5 0 Sfc, tztn f, 2577 h ~257E h * if' T 

*5o ^^*^©iitM*©-pJb5. 

JIS8l^3-Fttl|l*¥b^2 7K3pK^tvS^^-r^S^, 
mi7K¥ = 2121 H ~4F53 H 
^2tK^ = 5020„~7424„ 

n 1 tMP© 4F54„~4F7Eh t , W, 2 **£© 7425 H ~7E7E„tt*^« (£3) 

T&So 

fc-tfUl, ai2*l|Sc^e,*vrv»5*»kv»'5 k, ciittttffllfiScj: **)»«. fck 

*Jf®2*l|SettH (B), ¥ (¥) SSMfiKtt^if©, 17;IH 

Hivte3fcfe*v»i-*8l^)^^v i Sfctf*CfcS. -sffiKbTio 

*»*»iitf*e.4v>©tt f mi7K^*i(iB-tttJsotbT) r»*j Zb tarns n?»*0 

64 t£gttCiiJ&Xl 



SB^fBT, H2 7jcvp(i, SP'i' B* t IB^HS^tiT^S fci^d B bT£>6 0 H 

2*$08J?lili, 3 %’b<D&£’\,ifrb, Mfr 

£ — ^ciU^^r t'l $*•? •? fr 0 t, if— 'Cfcnnfr t*ia 0 

®teg*3-Ft|)5o 

Ffi JIS 3- K*^B7 , i'l'$>Bfc;£tf©t>0TfcSo JIS ©± 

fi, 20 h£3|v>T, lOiiifc-CStU fe-5 lls]< oOttjtBfcfeOT* 

So fct^tfjis 3 -k©4B7a„ (H) «, 

4B h 20 h = 2B h = 43 
7 Ah 20„ — 5 A , , — 90 

fci^-5 B tlB&U, g*3-K« r 4390J h£S©-C£S 0 B*Ui 4 Iff 

©10IiiStT*«ft<, r2fir© 10Jift**-oJ &©-?£> So 
u©K,fi3-Fti^^a, *:***£ A#* SIRE A~F TSjFtfkv^ <* 

^^©iFiFfcB^&i^o stUi ££riFilll£^£ £ b tufr-otz <£ f> ^Sc, M^CDAtlJjfet 
LX%Z.&£tltz h<D<b Lv^o ^(i3 >\f z.-f'TWZZfef) <D\*jZg%tZr>tz<DXtb 
S 0 

@77 F JIS gt^-F, 

S©77 F JIS t^o fcOJJ, JIS 3-K©fi»f**is5 B Lttlfcfc®t*s(ies 

l&E (iffi A * © if-tz *>£□ S & V >) o 

fck*.tfJIS3-F©4141„ (BE) *, > h U 5tt2 t, 41„f± 

ASCII 3 — FTti FAJ Xh'hfrb, ffiSCfi rAAJ fc^SftS B t C*S 0 S©i- 
4:tC«tom B*-B J:-fc*^0-C, JIS 3 — F £ili 3 IpK (2 if 3 B T £> T?!^ 
IN/OUTJ h^-5, 3 > F n — ;ix3 — Fi 5 MC4ot < S c 7S9, Z<Dt§nti fc, 
(*3= IN), 41 h , 41„, (jg^OUT) 

©6/nm f © f-n* raj ix^§^i-rs b tc4s 0 

B kTT%tz<Dtf*/7 F JIS 3-FT&S 0 Bi^ofi, rH 1 'M 
F d* 81 h ~9F„ i B < « E0„~EF„T, Jg 2 F **40 H ~7E H fc B < fi 80„ 

~FC h © 4 ftj© tm fcOTfcSo itCfBW F©«g 

HC|*ra*^So BtUi, ^^©7& 7 * t-© ASCII 3- F A0 h~DF„ 7-’^S^©T** 
S 0 77 F JIS x. fcb BTi Afi, i- tz fritz & f> Xfo%> 0 i> 3 

tB * ^ * J-OftB D c^*7 7 1 7 ? < 4So ca>c, ^ia 

©*^ ffft®7/07r-t7F4t*) iSt^ISB/CiflUU «£ f> KfiiS BM5 7 !) y F 
i 5 t±jT < SB>tfT&So 

■&**K$fe6© TMJ f±, 7 7 F JIS 3-F/ifc, 

9160 h 

t%0, r 91h, 60 hJ ©2/nM HDT-?tfHT TBtJ S B t e*4o $ 1 

F**91 H T*SB fc**, gt^IN ©ftBDCiD, H 2 F O&CBfiSOgi^OUT **£> 
Sfrttfio 7^9, BftSBioT rn^ IN/OUTJ ^IC4S 0 
S B T B ©Ho tB 3 - F ©H©g»7 , n 7'7A*B£g B * o T B £ 5 *> rtf, tv^t 

^ 3 M M ^65 



IJX b 3-1 : JIS -5/7 b JIS 
V * h 3-2 : JIS ~Ej£ 
0tI/n^7Ah^ot^l, o 



ijx h 3-1 JIS~v7 h JIS 



100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 



DEFSNG J 

FOR J = &H8100 TO &.H9FFF : GOSUB150 : NEXT 
FOR J=&HE000 TO &HEB00 : GOSUB1 50 : NEXT 
END 



LOCATE0 , 0 : PRINTCHR$ ( J ) : P$=SCRN$ (0,0,2 
JI$=JIS$(P$) :GOSUB 260 
IF EC THEN STOP 

IF S J$ < >HEX$ ( ASC ( P$ ) ) THEN STOP 

i 

S J$=HEX$ ( ASC ( P$ ) ) : GOSUB 420 
IF EC THEN STOP 
IF JI$OJIS$(P$) THEN STOP 
RETURN 



: ’ % m L 



^ i l 






1 JIS- > SHIFT JIS 
EC = 0 

W$=MKI$(VAL("&H"+JI$) ) 

JI 1 =ASC ( RIGHTS ( W$ , 1) ) : JI 2=ASC ( LEFTS ( W$ , 1) ) 

) 

IF (JIK&H21) OR (&H7ECJI1) THEN EC= 1 : RETURN 
IF ( JI2 <&H2 1 ) OR (&H7E<JI2) THEN EC= 1 : RETURN 
SJ 1 =INT ( (JIl-&H21)/2) +&H81 
IF JI 1 > =&H5F THEN S J 1 =S J 1 + ( &HE0-&H9F- 1 ) 

I 

IF JI1 AND 1 THEN S J2=&H40 : GOTO 360 ELSE S J2=&H9F : GOTO 370 
IF ( &H60 < = JI2 ) THEN SJ2 = SJ2 + 1 
S J2=S J2+ JI2-&H2 1 
SJ=SJ1*256+SJ2: S J$=HEX$ ( S J ) 

RETURN 



* SHIFT JIS->JIS 
EC = 0 

W$=MKI $ ( VAL ( "&H" + S J $ ) ) 

S J 1 = ASC ( RIGHTS ( W$ , 1 ) ) : SJ2=ASC ( LEFTS ( W$ , 1 ) ) 

» 

IF ( &H81 < = SJ1 ) AND ( S J 1 < = &H9F ) THEN 490 

IF ( &HE0 < =S J 1 ) AND ( S JI < = &HEF ) THEN S J 1 =S J 1 -&HE0 + &H9F+ 1 : GOTO 490 
EC=1 : RETURN 

JI 1 =INT ( (SJ1-&H81 ) *2 )+&H21 

t 

IF ( &H40 < =S J2 ) AND (SJ2<=&H7E) THEN 540 

IF ( &H80 < =S J2 ) AND (SJ2<=&HFC) THEN S J2 = S J2- 1 : GOTO 540 

EC=1 : RETURN 

IF S J2 > =&H9E THEN JI 1=JI1 + 1 : S J2 = S J2-&H9E+&H40 

JI2=S J2-&H40+&H2 1 

» 

JI $=HEX$ ( JI 1 ) +HEX$ ( JI2 ) 

RETURN 



'jxt' 3-1 tt, JI$C JIS 3 — F «■ Ati, GOSUB 260 ttZt, SJ$C 5/ 7 hJIS a - 

GOSUB 420 t k *S„ tztzL, 6 EC= 

tzt£b, ("OtO 

) o 

66 



•;*h3-2 



100 DEFSNG J 

110 FOR J = &H8 100 TO &H9FFF : GOSUB1 50 : NEXT 
120 FOR J = &HE000 TO &HEB00 : GOSUB 1 50 : NEXT 
130 END 
140 1 

150 LOCATE0,0: PRINT CHR$ ( J ) : P$=SCRN$ (0,0,2) 

160 JI$=JIS$(P$) :GOSUB 240 
170 IF KT$ < >KTN$ ( P$ ) THEN STOP 
180 ' 

190 KT$=KTN$(P$) : GOSUB 320 
200 IF JI$OJIS$(P$) THEN STOP 
210 RETURN 
220 » 

230 * JIS- >KUTEN 

240 W$=MKI$(VAL("&H"+JI$) ) 

250 JI 1=ASC( RIGHTS (W$ , 1 ) ) : JI 2 = ASC ( LEFT$ ( W$ , 1 ) ) 
260 KT1 = JI 1-&H20 

270 KT2 = JI2-&H20 : ' fc A -f 7 X £ (f £ 1i V 
280 KT$ = RIGHT$ ( STR$ ( 1 0000+KT1 * 1 00 + KT2 ) ,4) 

290 RETURN 
300 » 

310 * KUTEN- > JIS 
320 W=VAL ( KT$ ) 

330 KT1=W ¥ 100 : KT2=W MOD 100 
340 JI 1 =KT 1 +&H20 

350 JI2=KT2+&H20 : ’ # \z A -f 7 X $ If % £ If 
360 JI$=HEX$ (JI1*256+JI2) 

370 RETURN 



X b 3-2 tt SJ$T* < , KT$ (lx* 3— F) 



13-1 H-K4BM® 

® '>7 h JIS □- Kfc JlSiH^a- KOKH* 
r-7F 



00 3F 



40 



7E 



80 



9E J 9F 



-4- 



FC 



FF 



00 



—| i 

2160 217E [ 2221 277E 

2360 237E ,2421 277E 

I 



I 
I 

5D60 5D7EI 5E21 5E7E 



81 



9F 



2121 

2321 



215F 

235F 



5D21 5D5F 



-t“ 



E0 

EF 



FC 

FF 



5F21 5F5F 
7D21 7D5F 



5F60 5F7E|6021 607E 

J 

7D60 7D7E j 7E21 7E7E 



mm, h JIS=i — K(7)fg 1 , m2'W h ZtfT 



% 67 



<D '>7 hJlSu- KtE*.n- K0>M& 



\rm 

mm\ 


00 3F 


40 


7E 


r 


80 9E i 9F 


FC 


FF 


00 








1 

1 

1 

1 

1 

1 




81 




0101 

0301 


0163 

0363 




0164 0194! 0201 
0364 0394 1 0401 

i 

I 

l 

1 


0294 

0494 




9F 




6101 


6163 




1 

1 

1 

1 

6164 6194! 6201 

i 


6294 












i 

i 

i 




E0 




6301 


6363 




6364 6394j 6401 
I 


6494 




EF 




9301 


9363 




I 

9364 9394 j 9401 


9494 




FC 








1 

l 

i 

i 




FF 








i 

i 

i 





mm. nn(Jfnfnv7 h JIS3- K<7)^1, i2A< 



Xl/turbo SCtt, 

© iH^ VRAM 1 (turbo) 

© ^'7 7-f 7?!iffil-fi5< 

©2 fc to b (DTj&tf h&fort tie ©©*§•&&, turbo ©$I^ VRAM 

# # > t ^ nM b * § )A tf /i tt * t* t JS o fc £ ^fail V ><, St^ VRAM C # £ & tf ■ ^ 

27-7 («?R0M7FRXkv^) ©WI*»i6*fflli40TJbSo 
£-f, JIS 3- Ftt 2 /nM b •?&£*»&, ?%&*> 16 b*y b&;bfr/i 0 L*>U <£-< 
ISk, Hi, H 2 h fcfeC, 21 h (&B 00100001) ~7E„ (&B01111110) © 15 IS T $> 
So ?%£>*>, Z%hV»*4 bTb, W.1 t \"j h 0 &©/i<, .tot, JIS 3- FttHPg© 
t 3S 7 X 2 =14 £7 b t k ??A’Cb £ 5 hV>-5 Cl kC&S 0 ZtlfcttLX, turbo ©it ^ 
ROM 7 Fl^X fct^Ott, I/O 7 °©^ VRAM 13 £ 

7 b ( 8 + 5 £ 7 b ) ©fi^©Ti>S 0 1 £7 boa^jKoTi^S**, £;HttV>*»fc 
S t, JIS n- F® 2821 h ~ 2F7E„ k , 7425„~7E7E„**£v>TV>S *>&*£© 
a6Ci5©V3b5(ilC ^AOi: £Stt, JIS ©3fefT#£**2bS©tV& 

tvOt)ItT, H 3-2** JIS 3- F ROM 7 F i> 

©, 'J*h 3-3**^4rHff-fS7’n^7A-C k *So < **, ItSC, 

I?R0M7Fi^X©T(48Fy b (3000 H ~37FF„© I/O 3»MC OUT 1- S * 0 ) tt, H 
<5S tmiciBSXl 



3800 h — 3FFF»©g|^ VRAM (Dli(Dr-^\m 3-2 OT£>it£ 



13 3-2 turbo (7)JIS □ - K«3I¥ ROM 7 K u*0)NH$ 

•JIS*»a - K 

JH7 JH6 JH5 JH4 JH3 JH2 JH1 JHO JL7 JL6 JL5 JL4 JL3 JL2 JL1 JLO 



LI RLO 




RH7 RH6 RH5 RH4 RH3 RH2 RH1 RHO RL7 RL6 RL5 RL4 RL3 RL2 R 
ROM/ 7 

fffcL 3&l/f&2**P 





JIS;*^3- K 




il^ROMT KU7. 


JH6 


JH5 


JH4 


JL6 


JL5 




RH4 


RH3 


RH2 


RH1 


RHO 


m 

i 

7k 

m 


0 


1 


0 


0 


1 




0 


0 


0 


0 


JH3 


0 


1 


0 


1 


0 




0 


0 


0 


1 


JH3 


0 


1 


0 


1 


1 




0 


0 


0 


0 


JH3 


0 


1 


1 


0 


1 




0 


0 


1 


0 


JH3 


0 


1 


1 


1 


0 




0 


0 


1 


1 


JH3 


0 


1 


1 


1 


1 




0 


1 


0 


0 


JH3 


1 


0 


0 


0 


1 




0 


1 


0 


1 


JH3 


1 


0 


0 


1 


0 




0 


1 


1 


0 


JH3 


1 


0 


0 


1 


1 




0 


1 


1 


1 


JH3 


























m 

2 

7k 

m 


1 


0 


1 


0 


1 




1 


0 


0 


0 


JH3 


1 


0 


1 


1 


0 




1 


0 


0 


1 


JH3 


1 


0 


1 


1 


1 




1 


0 


1 


0 


JH3 


1 


1 


0 


0 


1 




1 


0 


1 


1 


JH3 


1 


1 


0 


1 


0’ 




1 


1 


0 


0 


JH3 


1 


1 


0 


1 


1 




1 


1 


0 


1 


JH3 


1 


1 


1 


0 


1 




1 


1 


1 


0 


JH3 


1 


1 


1 


1 


0 




1 


1 


1 


1 


JH3 


1 


1 


1 


1 


1 




1 


1 


1 


0 


JH3 



JIS>H^=i — K 
j 2021h~277E h 

J 3021 h ~3F7E h 

| 4021 h ~4F7E h 

| 5021 h ~5F7Eh 

j 

j 6021 h~6F7E h 
! 7021 H ~777E H 



l ) X h 3-3 turbo m JIS~jH^ ROM 7 K 



100 DEFSNG J 

110 FOR J = &H8 100 TO &H9FFF : GOSUB 150:NEXT 
120 FOR J=&HE000 TO &HEAFF : GOSUB 150: NEXT 
130 END 
140 ’ 

150 LOCATE 0,0: PRINT CHR$ ( J ) : J$=SCRN$ (0,0,2) 
160 IF J$ = ” •*" THEN 290 

170 JI$=JIS$( J$) :GOSUB 320 :'JIS -> ROM 

180 IF EC THEN STOP 

190 IF RL< > INP ( &.H3000 ) THEN STOP 

200 IF RH< >(INP(&H3800) AND &H1F) THEN STOP 

210 OUT &H3804 , RH OR &H80 

220 OUT &H3805 , RH OR &HC0 

230 OUT &H3004 ,RL: OUT &H3005,RL 



^ 3 ^ m 
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240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 



RL= INP ( &H3000 ) 

RH= INP ( &H3800 ) AND &H1F 

JI$="" :GOSUB 490 : 'ROM -> JIS 

IF JI$OJIS$( J$) THEN STOP 

RETURN 



’ JIS->ROM 
EC = 0 

JI=VAL( " &H"+JI$ ) 

RL=(JI AND &B11111) OR ((JI ¥ 8) AND &B11100000) 

RW1 = ( JI ¥ &H1000) AND 7 : * JH6 , JH5 , JH4 

RW2= ( J I ¥ &H800 ) AND 1 :’JH3 

RW3= ( JI ¥ &H20 ) AND 3 :’JL6,JL5 

ON RW1 GOTO 390,400,450,450,450,450,410 

EC=1 : RETURN 

RH=&B0 OR RW2 : GOTO 420 
RH=&B1 1100 OR RW2 
IF RW3=2 THEN RH=RH OR 2 
IF RW3=3 THEN RH=RH XOR 1 
RETURN 

RH= ( (RW1-3 ) *3+ 1+RW3 ) <2 OR RW2 
RETURN 



* ROM- > JIS 
EC = 0 

JI2=RL AND &B11111 :'RL4 - RL0 

JI 1 = ( RL ¥ &H20 ) AND &B111 :'RL7 - RL5 

IF RH< 4 THEN 580 :'2121H - 277EH 

IF RH> &H 1C THEN 590 :'7021H - 777EH 

JI1=JI1 OR ( ( ( ( RH ¥ 2 ) +7 ) ¥3 ) *&H10 ) 

JI1=JI1 OR (RH AND 1 ) *8 

JI2= JI2 OR (((((RH ¥ 2 ) + 1 ) MOD 3 ) + 1 ) *&H20 ) 
GOTO 650 

JI1=JI1 OR &B 100000 : GOTO 600 
JI1=JI1 OR &B1 110000: GOTO 600 
RW=RH AND 3 

IF RW=0 THEN JI2= JI2 OR &B 1 00000 : GOTO 650 
IF RW=2 THEN JI2=JI2 OR &B1000000 : GOTO 650 
IF RW=1 THEN JI2= JI2 OR &B 1 1 00000 : GOTO 650 
EC=1 : RETURN 

JI $=HEX$ ( JI 1 ) + HEX$ ( JI2 ) : RETURN 



210—230 ff © - f* y fi UBS £ VRAM ^ * © f - 9 £ 

OUT ?Z t)(DT&6 0 El 3-3 KfcSiSK:, Z kfc 

ait^o 



m 3-3 vram o- s- k y h < 7 )mm 




70 t&mz&zxi 



@ 0/7 7^ y 7 ZtlltXl t turbo (Digr&lzfrfrtl 

ZtDT&Ztf, turbo ©i§-£ft H 2 * TCG (g££ ROM) ©R^fc BUJ^HtrU 

*f£T, ^©f-^^77t y ?E#8&A/Tb£ *.»* 

XI OH^CffoTU ■JfcttTJbSo 

XI KioUSgt^ROM CZ-8KR, CZ-8BK2 T$> 5 (X1F/G © model 20 E 

gt^ROM©§^ftU2UX h 3-4t*5„ dtltt JIS 3 - F UT, fctJfrtSS 
^^S^(D&±iZ0^:i-67a7‘9AT$)6o ltt B Jlt5b, 

120 — 140 fr : JIS 3- F£A*U I'M h@ (JI1) t2'M hg (JI2) IzftMt 



•5 o 

150~170 ff : ROM E JI 1 b 0 * OUT 0, 2 'M h Sctfo 



MX t 3-4 Xlfflai^ROMK^tULypy^A 



100 


INIT : PALET 1,7:CLS4 






110 


> 






120 


LOCATE 0,5: INPUT JI$ 


: ’ INPUT 


JIS CODE 


130 


J 1 1 = VAL ( ” &H M +LEFT $ ( J I $ , 2 ) ) 


: ’JIS HIGH 


140 


JI2=VAL( "&H"+RIGHT$ ( JI$ , 2 ) 


) : ’JIS LOW 


150 


OUT &HE80 , JI 1 






160 


OUT &HE81 ,0 






170 


GOSUB 330 : ’ READ 2 BYTE 


FROM ROM 




180 


: ’ GET R1 (FROM 


TABLE) 




190 


» 






200 


R=R1 *&H100+ ( JI2-&H20 ) *&H10 






210 


OUT &HE82 , 0 






220 


OUT &HE80 , ASC ( LEFT$ ( MKI $ ( R 


) , 1) ) : ’SET 


LOW ADDR. 


230 


OUT &HE8 1 , I NT ( R/ 2 56 ) 


: ’SET 


HIGH ADDR. 


240 


FOR 1=0 TO 15 






250 


GOSUB 330 : ’ READ 2 BYTE 


FROM ROM 




260 


LP=R1 : RP=R2 






270 


IF I < 8 THEN AD = &H4000 + I *&H800 ELSE 


AD=&H4050+ (1-8 ) *&H800 


280 


OUT AD , LP : OUT AD+1,RP 


: ’ DRAW PATTERN 


290 


NEXT 






300 


GOTO 120 : ’ LOOP 






310 


i 






320 


’ READ FROM ROM 






330 


OUT &HE82 , 1 






340 


R1 = INP ( &.HE80 ) 






350 


R2= INP ( &HE8 1 ) 






360 


OUT &HE82 , 0 






370 


RETURN 







CftEi!), rii^ROMF^r-TM'J Slot, *ft© rit^'M-v© ROM |*37 
Fi/Xj tffrfi'2><D7$>Z>o Ztite-o^XlZ, *3-1 SrJl-Cv»fc«#fc^ 0 itUi##* 
$c 1 *^©5lfflT"#)l>o 

ittJU-tco J: 3 ELTflHatt.fcR0Ml*J7 Kvx (200ft©£&R) £, *, ? -SE80,,, 
E81 H #*feE|g£U ->©ttA ft Ut *>;!>> &©**, 210-290 ftC£ &. —&E& 

^ftT©li 2'M FT, -ea*U6xi6©g|^©«l yT ^^^^160^0 

jltlilciot, tb7fz< — o©g|!f©'-M->t&.?> ©T^ So &.&, 270ft 280 

*3* m ^77 



S 3-1 ROM (CZ-8KR, 8KR2)<7) I/O t’~ h 



1/07 K U 7. 


AttJ* 


«t ti 


0E82 h 


aj * 


00„tH* ROM A' E> <T>T-9 Itc* dJ L**7 

01„ta* ROM*'b(7)x-7lre*ai LMte 


0E81 h 

0E80 h 


Att* 


l/O(0E81„)-00„ I 

l/0(OE80 H )-* — JlSiH^ =t — K-Ui/W h 1 
x-?fS*ttiL0#lci4, 

l/O(0E81„)*'blJ00„ 

I/O (0E80„) b' b (4 ROM rt 7 Kl/7±fi/<-f h 

b tl & o 


l/0(OE81„)^ROMrt7 KUXiti/W h(HOO„) | 
I/0(OE80 h) < -ROMI*| 7 KU7Tfi/''-f h 1 * 

I/0(OE81 h )b'E>ii, *353-7* > 1-3- 

l/O(0E80 H )b'E>(4, *353-7 *> t3- 

/} < f^ b tl £> o 



j 'y /2i07);P— -f-'sX'Jb l>o 

ftlcaoTiS^, 1S«lgti«^R0M (cr 7 -feXl-?,*#^(±, E82„^01„ 
£ OUT L'Cfrb r"— 7 ^InA-bath Z> & X'<nWi (')xF 3-4 co 335 ftlz b tz h ) tc 3 //sJil 
±>/x 4 tlzZ^X^Z CJ X h 3 - 5 #B 8 )„ 

t^itXbX, SkBff L t LT, *3= ROMtT^-bX-tSiaWRro^A^U^ 
Y 3-5 X, ZtlZ BASIC * h 3-6 T&&0 

turbo Ttiifjb^t^o 



'/ 7 1 3-5 ROM C7 ? -Iz 7. 



. Z80 

•PHASE 0FE00H 









KANJI PATTERN 


READ 








DE -> JIS-HIGH 


, JIS-LOW 


FE00 


EB 


START 1: EX 


DE.HL 


FE0 1 


56 




LD 


D, (HL) 


FE02 


23 




INC 


HL 


FE03 


5E 




LD 


E, (HL) 


FE04 


18 0F 




JR 


KREAD 








KANJI PATTERN 


DRAW 








DE -> JIS-HIGH 


, JIS-LOW, X 








! ! ! X, Y = 16 bits ! ! ! 


FE06 


EB 


START2 : EX 


DE , HL 


FE07 


56 




LD 


D, (HL) 


FE08 


23 




INC 


HL 


FE09 


5E 




LD 


E, (HL) 


FE0A 


23 




INC 


HL 


FE0B 


4E 




LD 


C, (HL) 


FE0C 


23 




INC 


HL 


FE0D 


46 




LD 


B, (HL) 


FE0E 


23 




INC 


HL ;< 


FE0F 


7E 




LD 


A, (HL) 


FE 1 0 


23 




INC 


HL 


FEU 


66 




LD 


H , ( HL ) ;( 


FEU 


6F 




LD 


L , A 



72 SMfcCthS XI 



FE1 3 


18 16 




JR 


KDRAW 










tt**tt***t**********t***t 








DE= JIS CODE: 


D=HIGH , E=LOW 








READ KANJI PATTERN 




FE15 


CD FE6F 


I 


(READ: CALL 


SETROM 




FE18 


21 FED0 




LD 


HL , PATA 


‘.PATTERN AREA 


FE1B 


3E 10 




LD 


A, 16 




FE1D 


08 


KREADL : EX 


AF , AF ’ 


; SAVE COUNTER 


FE1E 


CD FE8F 




CALL 


RROM 




FE2 1 


72 




LD 


(HL) ,D 


; GET LEFT 


FE22 


23 




INC 


HL 




FE23 


73 




LD 


(HL) ,E 


; GET RIGHT 


FE24 


23 




INC 


HL 




FE25 


08 




EX 


AF , AF * 


; CHECK COUNT 


FE26 


3D 




DEC 


A 




FE27 


C2 FE1D 




JP 


NZ, KREADL 


FE2A 


C9 




RET 












DE= JIS CODE: 


D=HIGH , E=LOW 








BC=X,HL=Y 












DRAW KANJI PATTERN 




FE2B 


D5 


K 


;draw : PUSH 


DE 


’.SAVE JIS CODE 


FE2C 


CD FEA3 




CALL 


XYADDR 


; GET VRAM 


FE2F 


44 




LD 


B , H 




FE30 


4D 




LD 


C,L 


; COPY ADDR. 






j 


BC=G.ADDR. 






FE3 1 


D9 




EXX 






FE32 


D1 




POP 


DE 


; GET JIS 


FE33 


CD FE6F 




CALL 


SETROM 




FE36 


01 0E82 


’ 


LD 


BC , 0E82H 




FE39 


D9 




EXX 






FE3A 


AF 


* 


XOR 


A 




FE3B 


08 




EX 


AF , AF * 




FE3C 


3E 10 




LD 


A, 16 


; COUNTER 


FE3E 


08 


KDRAWL : EX 


AF , AF * 




FE3F 


D9 




EXX 










; 


BC=0E82H , A=0 






FE40 


3C 




INC 


A 




FE4 1 


ED 79 




OUT 


(C) ,A 


; BEGIN READ 


FE43 


0D 




DEC 


C 




FE44 


0D 




DEC 


C 




FE4 5 


00 




NOP 




; 3 us 


FE46 


ED 78 


’ 


IN 


A, (C) 


; LEFT 


FE48 


0C 




INC 


C 




FE49 


D9 




EXX 






FE4A 


ED 79 




OUT 


(C) ,A 


; DRAW LEFT 


FE4C 


03 




INC 


BC 




FE4D 


D9 




EXX 






FE4E 


ED 78 


* 


IN 


A , ( C ) 


; RIGHT 


FE50 


D9 




EXX 






FE5 1 


ED 79 




OUT 


( C ) , A ; 


; DRAW RIGHT 


FE53 


D9 




EXX 






FE54 


AF 


’ 


XOR 


A 




FE55 


0C 




INC 


C 




FE56 


ED 79 




OUT 


( C ) , A ; 


END READ 






; BC=0E82H . A=0 






FE58 


D9 




EXX 










; BC=G . ADDR . 










;DOWN 1 LINE 






FE59 


0B 




DEC 


BC ; 


BACK ADDR 


FE5A 


21 0800 




LD 


HL.800H 




FE5D 


B7 




OR 


A 




FE5E 


ED 4A 




ADC 


HL , BC ; 


CHECK SIGN FLAG 


FE60 


F2 FE67 




JP 


P , OKDN ; 


OK (ONLY BLUE) 


FE63 


21 C850 




LD 


HL , 4050H- 


7800H 






;IF WIDTH 40 










; 


LD 


HL , 4028H- 


7800H 


FE66 


09 




ADD 


HL , BC 




FE67 


44 


OKDN : LD 


B , H 





m z 73 



FE68 


4D 




LD 


C , L 


FE69 


08 




EX 


> 

> 


FE6A 


3D 




DEC 


A 


FE6B 


C2 FE3E 




JP 


NZ , KDRAWL 


FE6E 


C9 




RET 








DE= J IS 






FE6F 


7B SETROM: 


LD 


A , E ; LOW 


FE70 


D6 20 




SUB 


20H 


FE7 2 


6F 




LD 


L , A ;L=LOW-20H 


FE7 3 


01 0E80 




LD 


BC , 0E80H 


FE7 6 


ED 51 




OUT 


(C) ,D ;E80 <- JISH 


FE7 8 


0C 




INC 


C 


FE7 9 


AF 




XOR 


A 


FE7A 


ED 79 




OUT 


(C) i A ;E81 <- 00H 


FE7C 


CD FE8F 




CALL 


RROM ; GET FROM TABLE 






; DE=TABLE VALUE 




FE7F 


26 00 




LD 


H , 00H 






; HL= JIS 


LOW-20H: 


= ’ TEN ’ 


FE8 1 


29 




ADD 


HL , HL 


FE82 


29 




ADD 


HL , HL 


FE83 


29 




ADD 


HL , HL 


FE84 


29 




ADD 


HL , HL ; HL=HL* 16 


FE85 


19 




ADD 


HL , DE 






; NOW HL 


=ROM ADDRESS 


FE86 


01 0E80 




LD 


BC , 0E80H 


FE89 


ED 69 




OUT 


(C) ,L ; E80 <- LOW 


FE8B 


0C 




INC 


C 


FE8C 


ED 61 




OUT 


(C) ,H ;E81 <- HIGH 


FE8E 


C9 




RET 








•READ ROM (JUST 


2 BYTES) 


FE8F 


01 0E82 RROM : 


LD 


BC , 0E82H 


FE92 


3E 01 




LD 


A, 1 


FE94 


ED 79 




OUT 


(C) ,A ; BEGIN READ 


FE96 


0D 




DEC 


C 


FE97 


0D 




DEC 


C 


FE98 


00 




NOP 


; 3 us 


FE99 


ED 50 




IN 


D , ( C ) ; LEFT 


FE9B 


0C 




INC 


C 


FE9C 


ED 58 




IN 


E,(C) ; RIGHT 


FE9E 


AF 




XOR 


A 


FE9F 


0C 




INC 


C 


FEA0 


ED 7 9 




OUT 


(C) ,A ; END READ 


FEA2 


C9 




RET 








ADDR=4000H+ ( XI > > 3 ) + ( (Y1 & 7 ) < < 1 1 ) +(Y1>>: 






ADDR=4000H+ ( BC/8 ) +((L AND 7 ) < < 1 1 ) + ( HL/8 






HL=Y1 , 


BC=X1 .BREAKS HL , A , BC , DE 






return 


HL=addr 


, A=raask , D=count 


FEA3 


7D 1 


(YADDR : 


LD 


A , L ; SAVE L 


FEA4 


CD FEC3 




CALL 


DIV8 ; HL=HL/8 


FEA7 


54 




LD 


D , H 


FEA8 


5D 




LD 


E,L ; DE=HL 


FEA9 


29 




ADD 


HL , HL ; 


FEAA 


29 




ADD 


HL , HL ; 80=16* 5 


FEAB 


19 




ADD 


HL , DE ; HL=5 


FEAC 


29 




ADD 


HL , HL ; 10 


FEAD 


29 




ADD 


HL , HL ; 20 


FEAE 


29 




ADD 


HL , HL ; 40 


FEAF 


29 




ADD 


HL , HL ; 80 ;HL=(HL/8 






;OR 


NOP 


(WIDTH 40 


FEB0 


E6 07 




AND 


07H ; A= ( L AND 7) 


FEB2 


87 




ADD 


A, A 


FEB3 


87 




ADD 


A, A 


FEB4 


87 




ADD 


A , A ; A= ( ( L AND 7 ) < < 3 ) 



74 SUg;fca!& XI 



FEB5 


C6 


40 


ADD 


A , 040H 


; ADD 4000H 


FEB7 


57 




LD 


D, A 




FEB8 


IE 


00 


LD 


E.00H 










; DE = 4000H+ ( (L 


AND 7) <<(3 + 8) ) 


FEBA 


19 




ADD 


HL,DE 


; LAST 2 & 1ST WERE DONE 


FEBB 


EB 




EX 


DE , HL 


; HDE=HL (SAVE) 


FEBC 


60 




LD 


H , B 




FEBD 


69 




LD 


L,C 


; HL=BC 


FEBE 


CD 


FEC3 


CALL 


DIV8 


; HL=HL/8 


FECI 


19 




ADD 


HL , DE 


; BADDR DONE 


FEC2 


C9 




RET 












;HL has result 


( address ) 




FEC3 


CB 


3C 


DIV8 : SRL 


H 




FEC5 


CB 


ID 


RR 


L 




FEC7 


CB 


3C 


SRL 


H 




FEC9 


CB 


ID 


RR 


L 




FECB 


CB 


3C 


SRL 


H 




FECD 


CB 


ID 


RR 


L 




FECF 


C9 




RET 






FED0 






PATA: ds 


32 


; PAT AREA 








END 







') X h 3-6 BASIC frb r 'J Xb 3-5j *5 



100 CLEAR &HFE00 



110 


MEM$ ( &HFE00 ,16) =HEXCHR$ ( 


"EB 


56 


23 


5E 


18 


0F 


EB 


56 


23 


5E 


23 


4E 


23 


46 


23 


7E" ) 


120 


MEM$ ( &HFE 10,16) =HEXCHR$ ( 


"23 


66 


6F 


18 


16 


CD 


6F 


FE 


21 


D0 


FE 


3E 


10 


08 


CD 


8F" ) 


130 


MEM$ ( &.HFE20 , 16 ) =HEXCHR$ ( 


"FE 


72 


23 


73 


23 


08 


3D 


C2 


ID 


FE 


C9 


D5 


CD 


A3 


FE 


44" ) 


140 


MEM$ ( &HFE30 , 16 ) =HEXCHR$ ( 


"4D 


D9 


D 1 


CD 


6F 


FE 


01 


82 


0E 


D9 


AF 


08 


3E 


10 


08 


D9 " ) 


150 


MEM$ ( &HFE40 , 16)=HEXCHR$( 


" 3C 


ED 


79 


0D 


0D 


00 


ED 


78 


0C 


D9 


ED 


79 


03 


D9 


ED 


78" ) 


160 


MEM$ ( &HFE50 , 16)=HEXCHR$( 


"D9 


ED 


79 


D9 


AF 


0C 


ED 


79 


D9 


0B 


21 


00 


08 


B7 


ED 


4A" ) 


170 


MEM$ ( &HFE60 , 16 ) =HEXCHR$ ( "F2 


67 


FE 


21 


50 


C8 


09 


44 


4D 


08 


3D 


C2 


3E 


FE 


C9 


7B" ) 


180 


MEM$ ( &HFE70 , 16) =HEXCHR$ ( 


"D6 


20 


6F 


01 


80 


0E 


ED 


51 


0C 


AF 


ED 


79 


CD 


8F 


FE 


26") 


190 


MEM$ ( &HFE80 , 16 ) =HEXCHR$ ( 


"00 


29 


29 


29 


29 


19 


01 


80 


0E 


ED 


69 


0C 


ED 


61 


C9 


01") 


200 


MEM$ ( &HFE90 , 16 ) =HEXCHR$ ( 


"82 


0E 


3E 


01 


ED 


79 


0D 


0D 


00 


ED 


50 


0C 


ED 


58 


AF 


0C" ) 


210 


MEM$ ( &HFEA0 , 16 ) =HEXCHR$ ( 


"ED 


79 


C9 


7D 


CD 


C3 


FE 


54 


5D 


29 


29 


19 


29 


29 


29 


29" ) 


220 


MEM$ ( &HFEB0 ,16) =HEXCHR$ ( 


"E6 


07 


87 


87 


87 


C6 


40 


57 


IE 


00 


19 


EB 


60 


69 


CD 


C3" ) 


230 


MEM$ ( &HFEC0 , 16 ) =HEXCHR$ ( 


"FE 


19 


C9 


CB 


3C 


CB 


ID 


CB 


3C 


CB 


ID 


CB 


3C 


CB 


ID 


C9 " ) 



240 ’ 

250 WIDTH80 : INIT : CLS 4 

260 PALET 1,7 

270 DEFUSR0=&HFE00 

280 DEFUSR1 =&HFE06 

290 ’ D$ =USR0 ( HEXCHR$ ( " 3E22 " ) ) 

300 ' D$=USR1 ( HEXCHR$ ( " 3E22 " ) +MKI $ ( 10 ) +MKI $ ( 10 ) ) 

310 » 

320 X=0 : Y=0 

330 LOCATE 0 , 0 : INPUT "JIS" ;JIS$ 

340 IF LEN ( JIS$ ) < > 4 THEN 330 

350 D$=USR1 ( HEXCHR$ ( JIS$ ) +MKI$ (X ) +MKI$ ( Y ) ) 

360 X=X+16 : IF X>640-16 THEN X=0 : Y=Y+16 : IF Y>200-16 THEN STOP 
370 GOTO 330 
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$ fe* < tf XI tt 9 B s 'otl £ -9 ©T$> 

S 0 

Ztui£?l3g, 80C48, 80C49 GO^T*^iC#*M^M<©TS>So 

7yf7/-7 4 3 y kv>-5 *>©«, ±KfMflP^1Eb*Vtt»S LSI T&So iifitBf 
ItIME-74 3 y*jfi*atf©**tt*oTV»’C, CM *£Tfc L J: ofcfc-s gttLT 
5 C 

7yf-'y7°v^f 3 y(;li 4 Uy h©fc©k 8 t?y h ©*>©**$>£ (^©5 
jfctfc-f yT’y-*-** 16 t *7 h ^ 32 t*y h © fc ©£ffiS ^ fc U4V»),I©H? b$l 
©38 Wi, A V 3 y fig© CPU © 8 t? y b , 16 h" y 1 , 32 h* y h k [WJ U J; 5 & fe © Tib 
So #H^*S®atl*iSjt5©^o 80C48 k 80C49 tt*?fcVUtC 8 tfy hTS>S„ -5 
D 4 tTy h CPU ££*>-£* 9 Lfc £, y-A£:T 5kl©^f- Hfftd* 

FM~7<7)£ 1 iZft-oX^tzfrii tlftflfto 

$T, 80C48 k 80C49©i8^-C£>S**, d*l£— o©v-f 3 y U£©T£> 
So JJfBItt 80C49 ©^*5±fi (K®fg) TfeSo SLuS©v^3y«, -OCf-y/Cl 1 
K, CPU ®#k, ROM, RAM £}#oT^T, l^fiE/n ^7 A^gStr-? 
f- v t°f* 3© ROM cASo v^k>(fy u-y3 yt"a-^0^®©tfe^ o 
© RAM 7 k UT^fcnSo — -3©v^ 3 y©jt^« Ztlt><D* 

^'J©g fiT, 80C48© ROM : 1 K/nM K RAM : 64 /<4 H-MUT, 80C49Ttt ; eti 
^tL*ifoC^oTViS 0 k/iU7 yf-y 7°v^ 3 y k v^t fcfl-S&fc ROM ^ RAM £# 
tfS^kfcnflUV, felWIUtttgC^TffifigTtS^a-C^So i¥ 

t < 9 ^i-uyyfi/y>„ 



7S ISSE ttus xi 



^7CPU<*5|gg«<7iT&3 

XI 'T©f-^CPU (Dl&fotlJjlii, 80 C 49 *^'(^O 4 I CJ) 0 , 4 r — tf— F, ^■feyhf'y 
*, iivyy-, B#St 0 «PD 199 O kH -5 LSI) k Z 80 bOM&b V toTV> 4 . XI©* 
- - F © 4 > C & 80 C 48 *5 A r? T fc !A £ ft*.* - © T - ^ £ 80 C 49 *5 S/'JT t 
£*Ui 80 C 48 (*-**- F) 80 C 49 (*#) ^©— ^jSfrTfcSo tHirtM 

C 3 S^»© 2 SS««**k*filE«>tf, i^ 0 ®fE 74 tl/XK* 5 lim 5 o $T, 
turbo F-C(it. i kg 3 „ 80 C 48 < , 80 C 49 tl T 3 © T & 

§ 0 £*UirB*“Fj*A/fei »>3 b©tf*-tf-Ffc#v»;fc 9 *kU;fc;fc», 80 C 48 Ttt 
^ < te-otztz&ti b&ibti&o 

turbo T’B^t-Fb^ blfiffrC# £ «fc 5 C, A 

CPU © 80C49 b , XI k turbo T»4it'5 0TJbSo iEffllCWittf, R^© ROM 
ROM) CS^tlTVi § 7°n ^7 (DTh&o *£>C, turbo © model 20/30 CiJV* 

•? , “^U3-^(CZ-8RLl)*03Et<'fc»©SaEfe*«o 8RL1 C 
b 80C49**ft*§4lT*D, * >T D 5?x V h KfcoTH-5 jgffl 

f-fX/l/4CU^tb5tg5) 0 turbo © model 20, 30 ©f-l/CPU «:, 8RL1 © 
80C49 |W| ± k *s 0 7 rtolfll * ■ ff * o T V » S © T h Z „ £ *ttt 8RL1 * o <• £ k i* Y 3 4 
X1F model 20 TbHUil t T$>%> 0 t%t>t>, ^'fcftOib^CPU «, 

1) XI turbo model 20, 30, 40 (II, III, Z bll'if) 

2) XI turbo model 10 

3) X1F, G model 20 

4) *©#, 

©4«Y, mmE!l©f±tlF:£oT^5©T&3o b o k bj*$ 

RTtBtetffcitf, < k b±B© 4 af4«t636*iSoTV»5 £ k tt{Si»YfcS 0 8RL1 *0 

* if z i 5 c t tz §&#© a Z80 flua» e, a $ ^ * < ji *. * v > „ t a t> % , *- t* cpu a* * 

©gfcfr© rav^J *^K!RJRLYv>S©YJbSo tibdt, JS2«»©#Mi0Sft;K: 
bftfET^S J&ifi, * 7* CPU fcflfc $ * !) 7 b T b £ £ © *f 0 

$&T, ffib'75T*3 

-tbA CPU C ttSAWC 2 tb'0 (Dl5&tfh Z„ZtUZ ibT* CPU #> £> r - 7 

U&£*S ^kb^CPUe^-^*«-#-^©it^Y* 5 0 fc 4 ?U Fb^Cl^tb 
iMflld Z80 #>p> 80C49 ^jHoT^^^rUiUf^r 80C49 lifOn^y F 

£MT, Z80 CiH5©^, t b Z80 :6 >p>t- 7 £gU®§©b>£¥!J»T 

1 -^.©Y*e 0 **i*ft©^©g»t«L*-*- 4 ?'-:Pft OnM HO b^tot 

^4©y, z<Dmz^z%^tmig%mi ;: £L%<%-3rL£5(DTmm&&gT$>5 0 

kvo k Cl *>■?*? 4-1 Cib7*CPU©3v7F^=&^fo 



*4$ 77' CPU 79 



m 4-1 -*7' CPU K-ft 



37>F 


W) ff 


y— 


x — 

(A-fMS) 


it # 


E3 h 


*T — A 4 1 — T — ^B3E*Hi E 


Z80*-80C49 


3 


turbo (7)^o 


E4 h 


+-A*fJUiA^^^^-tZ7h 


Z80^80C49 


1 


'tffZOOHlzTSt, 


E6 h 


+— x— ?f!*lii L 


Z80^-80C49 


2 


T-?lt7T>?->a>$, ASCII =i— KCOHIM 


E7 h 


TV=l > h P-^U 


Z80-»80C49 


1 


#C4'L 


E8h 


TVn> t P-JU9t*ttiL 


Z80^80C49 


1 


TVClUOMbnfcn- K%St#fflT 


E9 h 


-tz 7 h 77 + p > h P — )\s 


Z80^80C49 


1 


x-S’lJ, CMT=~C*W6 


ea h 


*tZ7hx7*»SIS*tllL 


Z80<— 80C49 


1 


x-J'tt, ~=CMTC74Ct' 


EB h 


**7 H2>9— Sc*ffiL 


Z80>— 80C49 


1 


x-J’ti, ~=CMT(A)i;2ffi 


ec h 


^ u > y— iz 7 h 


Z80— >80C49 


3 


fcC4L 


EDh 




Z80"— 80C49 


3 


^C4'b 


EE„ 


S#rHz 7 h 


Z80— >80049 


3 


44C4-U 


ef h 


Hi L 


Z80<— 80C49 


3 


»C4C 


D0 h ~D7 h 


7 -f 7(0-7)427 h 


Z80^80C49 


6 


tell 4U 


D8 h ~DF h 


7 4 7(0-7)1^*191 


Z80<— 80C49 


6 





(D -9-yCPU k#I£T stcfcJUi* 1 ! 

I0*0l/0??mt -9-y CPU k ©#fS(i I/O £Hfl© 1900 h# 

©T&So L#>U 1900„#ifeCT-7£ IN/OUT 7*Ui'iv> 

kiA-5 fcfflTli^K -9-7' CPU KfeH-7'CPUOiP-^kv^ *>©**&•?, *5 © f* k ?U1 £ 

^V^* 5 lA01 H #ifi©t*y b 6**1 (-fey b£ftTV> 
S) &<->#, -9-7* CPU r4«ttU>;&>£T-7tegU&ft3:4±AJ tPotv^Otl) 
So S*|S1U< lA01„#ife©t*y b 5*U pry %?>«, r^ti£A,*CK 

7 J k®oTViS©T^>S 0 
1A01„#ift©t'-y h 6 

0 * b tt* Z80 -* 80C49 -s 1 'U b 

1 % b \$y* 

1A01 „##&©£* b 5 

Ottb tf 80C49 - Z80 ^ 1 b 

1 &£>«*77 
*©T*S 0 

4-1 t-MTVi/c/ft/cV^^OT^So £©7°n;/7 A Wit o 

fc»£tt*j£Ufc9, 6it&<*ofc91-S©T, SUfrfflK-K 

SAVE UT4o< $T, i©7’n7 > 7A(i^-;P.BASICf*S 0 

US: kli^i/7^- (B#) ©Bc^#S^©T$)So Hj§©fl£© 80C49 k©r-7© 
^ D k 5 tt, 

400—430 fr* s Z80 -» 80C49 

so t&mzmb xi 



l/X h 4-1 ^-;uBASIC)S-*>-yCPU7^-fe5UU— ?=•> 



100 


DATE $ = "99/02/23" 






110 


D$=CHR$ ( &.HED ) + " . . . " : * 


GET DATES 




120 


GOSUB "GET- DATA" 






130 


GOSUB " D I SPHEX " : PRINT 






140 


i 






150 


D$=CHR$ ( &HEC , &H85 , &H93 , &H 1 8 ) : ’ DATE$= " 85/09/ 1 8 " and WED 


160 


GOSUB "SET- DATA" 






170 


END 






180 


» 






190 


LABEL "DI SPHEX" 






200 


FORI = 2TOLEN ( D$ ) 






210 


D=ASC(MID$ ( D$ , I , 1 ) ) 


: PRINT HEX$ ( D ) , 




220 


NEXT: RETURN 




230 


t 






240 


LABEL "GET- DATA" 






250 


D= ASC ( LEFTS ( D$ , 1 ) ) 






260 


GOSUB"Z80- > 80C49 " 


: * SET COMMAND 




270 


FORI=2TOLEN(D$ ) 






280 


GOSUB" 80C49- > Z80 " 






290 


MID$(D$,I,1) =CHR$ ( D 


) 




300 


NEXT: RETURN 






310 


» 






320 


LABEL" SET-DATA" 






330 


D= ASC ( LEFTS ( D$ , 1) ) 






340 


GOSUB"Z80->80C49 " 


: * SET COMMAND 




350 


FORI =2TOLEN ( D$ ) 






360 


D=ASC ( MID$ ( D$ , I , 1 ) ) 






370 


GOSUB" Z80-> 80C49 " 






380 


NEXT: RETURN 






390 


’ 






400 


LABEL"Z80- > 80C49 " 






410 


WHILE INP ( &.H 1 A0 1 ) AND 


&.H40 : WEND : 'WAIT 




420 


OUT&H 1 900 , D 


: 'SET 1 


BYTE 


430 


RETURN 






440 


t 






450 


LABEL" 80C49- > Z80 " 






460 


WHILE INP ( &H1 A0 1 ) AND 


&H20 : WEND : 'WAIT 




470 


D= INP ( &H 1900) 


: ’ GET 1 


BYTE 


480 


RETURN 







450~480 fir** 80C49 — Z80 

7°n^'7 AT'ttf-7'CPU t©^9 t ^ •30iSSSLtViSo *1*. 

100~130t7^T-^A®T£>S o Stitt, tftZCPUK37V K ED H £S?LT, \iiu 
y?~(D7 , -?Z*> i-*fv>JtW5©-r£>S„f-^CPU tt EDktv^avyKtiW 
St, kf^T3^4 l'0f-^Sot < tlS„ 110 fr© "..." tt 

•?-©3'nM Y<Dt~? *%.tf%LZ>tz£><D-y S.-X’h% 0 
»ei50~160fir*»*^y^-©-fey hTJbSo *®J0EC„a*, rstl^S^uy^''-^ 
■fey M-S^Jfcv^l»|c©3v>FT26*. -9-7'CPUttS©3TyK£§ttlKSt, $ 
rioL'f iolfj t lot 3 'nM ICf-^^SSLt < SOT&So -t S 
T% 150fT©&H85, &H93, &H18 © 3 <@£S LT^S©-C;&So 
Z.<DV->'7nsfrbfrfr& t 5 ttltT’CPU t©£f§tttt, 

l''M h©3TVK*80C49 ^2&S. 

^©ft80C49**»^f>f h©r*-?£&oT < S 0 



*4f -ttcpu s? 



(D ~fi 

1 /\M h © 3 v y F £ 80C49 
•?-©^80C49*^ h©f-?£g;£'t&o 

©2 hfe D* 5 £>£©*: o ©£ 240~300 : fT©^^’^-f-> 5 ©£ 320—380fr©'^:/'i'-^ 

yCfT^oTv^o 

If Jif S**, 100 U**n***5 i 

h LTV^-So 190—220 ffCD-y-7'n'— f->lt D$(D<PM<D%tfT$> 6 a 

tzz-c, Httc:©7 p D^9Att^^jEU<«cv» 

©ff 0 170 TGOTO 110J KLt;v-/Jt, I BREAK | * —t* fr -f '<—* ') > t° 
>y t BP < b, J Pi i 'C BASIC oTL^9©'C'^>-2>o^(iC tU£4r — tSJ 

9ii<&©-£V>*©'CfcSo ^ £t k ®Wfg£^ofcIELV^:^-?-> / £:^£tek?&£ S 
V » 0 i| X h 4-2 ** 240-480 'tfbmVZtZtZ>7'a77l*<D7*'s7 , ^ ] )X\'-C$>2> 0 M 
t©ty//K l JXl4-4, 5, 6, 7, 9) 100— 170ffCC:©^«^-9-^-f-> 

£^■5 ;hc«o 

0x1 4-2 -0-7' CPU 



. Z80 



E000 

E003 

E006 
E007 
E008 
E009 
E00 A 
E00B 
E00E 
E011 
E012 

E013 

E014 

E017 

E018 

E019 

E01B 

E01C 

E01D 
E01E 
E01F 
E020 
E02 1 
E022 
E025 
E028 
E029 

E02A 

E02D 

E02E 

E02F 

E030 

E032 

E033 



C3 E006 
C3 E01D 

FB 

EB 

56 

23 

58 

CD E034 
CD E046 
F3 
ID 

56 

CD E034 

23 

ID 

20 F8 

FB 

C9 

FB 

EB 

56 

23 

58 

CD E034 
CD E046 
F3 
ID 

CD E03D 

72 

23 

ID 

20 F8 

FB 

C9 



T049 : 



FM49 : 



.PHASE 


0E000H 




JP 


T049 




JP 


FM49 




El 


EX 


DE , HL 




LD 


D, (HL) 


; A=COMMAND 


INC 


HL 


; INC POINTER 


LD 


E , B 


; COPY COUNTER 


CALL 


SEND1 


; SEND COMMAND 


CALL 


CANW 


; CAN SEND? 


DI 

DEC 


E 


; DEC COUNTER 


LD 


D, (HL) 


; GET DATA 


CALL 


SEND1 


; SEND 1 BYTE 


INC 


HL 


; INC POINTER 


DEC 


E 


; DEC COUNTER 


JR 


NZ , T049LP 



El 

RET 



El 



EX 


DE , HL 




LD 


D, (HL) 


; A=COMMAND 


INC 


HL 


; INC POINTER 


LD 


E , B 


; COPY COUNTER 


CALL 


SEND1 


; SEND COMMAND 


CALL 


CANW 


; CAN SEND? 


DI 






DEC 


E 


; DEC COUNTER 


CALL 


GET1 


; RECEIVE DATA 


LD 


(HL) ,D 


; STORE DATA 


INC 


HL 


; INC POINTER 


DEC 


E 


; DEC COUNTER 


JR 


NZ , FM49LP 



El 

RET 



82 WBilzth&Xl 



E034 


CD 


E046 


SEND1 : 


CALL 


CANW ; SUB-CPU READY? 


E037 


01 


1900 




LD 


BC, 1900H 


E03A 


ED 


51 




OUT 


(C) ,D ; SEND DATA 


E03C 


C9 






RET 




E03D 


CD 


E050 


GET1 : 


CALL 


CANR ; SUB-CPU READY? 


E040 


01 


1900 




LD 


BC , 1 900H 


E04 3 


ED 


50 




IN 


D, (C) ; GET DATA 


E045 


C9 






RET 




E046 


01 


1A01 


CANW: 


LD 


BC, 1A01H 


E04 9 


ED 


78 


CANWLP: 


IN 


A, (C) 


E04B 


E6 


40 




AND 


40H 


E04D 


20 


FA 




JR 


NZ, CANWLP 


E04F 


C9 






RET 




E050 


01 


1A01 


CANR : 


LD 


BC, 1A01H 


E05 3 


ED 


78 


CANRLP : 


IN 


A, (C) 


E05 5 


E6 


20 




AND 


20H 


E057 


20 


FA 




JR 


NZ, CANRLP 


E059 


C9 






RET 





END 



uxh4-3 JEli'Vzf cpu 



100 CLEAR&HDFFF 

110 DEFUSR0=&HE000 : DEFUSR1 =&HE003 



120 


MEM$ ( &.HE000 , 1 6 ) =HEXCHR$ ( ”C3 


06 


E0 


C3 


ID 


E0 


FB 


EB 


56 


23 


58 


CD 


34 


E0 


CD 


46" ) 


130 


MEM$ ( &HE0 1 0 , 16 ) =HEXCHR$ ( "E0 


F3 


ID 


56 


CD 


34 


E0 


23 


ID 


20 


F8 


FB 


C9 


FB 


EB 


56" ) 


140 


MEM$ ( &HE020 , 1 6 ) =HEXCHR$ ( "23 


58 


CD 


34 


E0 


CD 


46 


E0 


F3 


ID 


CD 


3D 


E0 


72 


23 


ID" ) 


150 


MEM$ ( &HE030 , 1 6 ) =HEXCHR$ ( "20 


F8 


FB 


C9 


CD 


46 


E0 


01 


00 


19 


ED 


51 


C9 


CD 


50 


E0 " ) 


160 


MEM$ ( &HE040 , 1 6 ) =HEXCHR$ ( "01 


00 


19 


ED 


50 


C9 


01 


01 


1A 


ED 


78 


E6 


40 


20 


FA 


C9 " ) 


170 


MEM$ ( &HE050 , 10 ) =HEXCHR$ ( "01 


01 


1A 


ED 


78 


E6 


20 


20 


FA 


C9 " ) 













180 ’ 

190 DATE $ = "99/02/23" 

200 D$=CHR$ ( &HED GET DATES 
210 DUMMY$=USR1 (D$ ) 

220 GOSUB"DISPHEX" : PRINT 
230 ’ 

240 D$=CHR$ ( &HEC ,&H85,&H93,&H18) : ’ DATE$= "85/09/18" and WED 
250 DUMMY$=USR0 ( D$ ) 

260 END 
270 * 

280 LABEL "DISPHEX" 

290 F0RI=2T0LEN(D$ ) 

300 D=ASC(MID$(D$, I , 1 ) ) : PRINT HEX$(D), 

310 NEXT: RETURN 



§ t iS i ;£>*, Ja:© t , 

E000„ *5 ? 'f 7° 1 ( Z80 ->■ 80C49) 

E003 h *^ -i 7° 2 (fi#J©— QJiWi 80C49 -> Z80) 

©ftlftixv b D -TS>§ 0 DE 

7 C ■£© W to -t'rfc'-f'f b AtlT CALL TtlH «fc Vi Q C ft « BASIC T 
USRn (A $) £^frL;te t # C-fe y b £ft 2 > u 7 ©F* 3 ??e£;b 4 IrTV>£ ©T% 9 X b 

S-f EOOOhT^S*?) TT049J ^fy/LTLi ?„ oj Df 9 4® 

/i 0 El TtSO 9 &<&• C T v> -S o — M^S D ife© i o tz £>$, <1 ftfc 



* 4 <£ T"7* CPU Si 



t, %(D — XI 

lA&^ffnJ (o & 0 El) ZtlX^2><Dt£tf, ZtH l t±lZ*-AtJ<Dt:lb'C$>&o St, if 

cfe»v»fcJ:3 c, *©*-A#e.k5#l0&*t> i 9-:/CPU 

/fo -9-^CPU fc (*-« 9 &*&*!•©£ 

ET &*§-£«, $lt>&*&sy: (DI) rtf**, *0*4 - 

v^fifeaS^OfcOTab-So 7&:bt>, y x M -2 C *>£>£<£ -5 e, ftlU©3-7y K4-JH 
-otz'ik, -y-X‘CPU^r^*7 J — * §Sot % V^Vi ct J had £ TiyD3X&£|£±bt:t3;i^ 
tt&V:>©;fc*o £ tUi * 4 X° 1 , ^^/2©ii^CO^Tf iSu ttliSo 
lt5©K-W'otliofto E *> E 5i±1]%: < HuMonitor 

&f&Vtz<DT$>Zo *I©32y t> y X h 4-1 T<D | BREAK] ^—©jlffib 

*iTTilfP* SJ ?-©®t'Tt^'5©T2b2)o £©.&©»*>&» RET 7 5ifC El £^frf £ 

UU *&&&©£*>£— tSaoTfc’ 

<*s, 

• SENDl : 80C49 frh OK 74 £Tf# ot 1 'M h3£5 

• GET1 : 80C49 *>£> 0K74 y**tH& itfot l^M 

• CANW : 80C49^r-^ : &^n^ 3:3 ST^fO 

• CANR : 80C49 frbT — 9 £SfrIXixS £ -5 K & & £ TffO 
E&oTi^So BASIC USR^T*n?t/tHT^-C«*^ yfMf'Jfc'3 3 EJS3 
BASIC © IOCS 4> C a fe -D E &7X*A'— 7 > %>(Dtz 34 ZtlZi#.? ©&tfciiT'£> 
5t^^A©3«KJ;D, -Mt^Ctiofclo 

T(i, IffiCfnfEO^^VKCOHtjSsii^^So 
© E3 h (turbo ©3 i — A# — l J ) 

ZtUZ turbo ©7 — 7 — FOX4 'V 7£, l"BJ CLfctS K^§#J & ft £ T* £> 

5 0 BfCfotUia* 24f@©7-£ (BE A, if) HB#C y 7;P*4 ACf!&iiJ7-5® 
-CfeSo 24{@© 7-ttB5£t% fV^-hZ-f 7 7-©[S]£tp'L'E LAQ-C© 8 
f@, 35 ±I/^©Jfa©*-T£>5 0 =i4fcWK:E*©7-3>EV>3 £ Efi, El 4-1 £J|T^fc 
fi # fcl^o 

^©-9-y 77 u/n 7x Ali U X h 4-4 T'ifc S 0 100 '170 Tt V X h 4-3 © pII^ 5" Cilffl 
Lfc&©T$>£o 230—250 -So £ ©7n tfy A Tit BIN$£(£o T, }¥£ 

titz A — CfcfS&-f S t*y F £ 1 KltiitSo ;P— 7CL'T'&-S©7‘y 7 4/74 AKf 
fb^-S#?*****^**: §*vi 0 %ft%frr>Tzt£<b, 7-7-K©X4 yf-SrTAJC 
Ltl'Wilfcl'o H£ftOt:&:£S5 0©£ £©{i-fT£So *“#“ F3*7- 

K A©E £FM5J£ffLTfc 0i5Ir)t< 5©*% 

© E4„ (4f-A*l(‘Ja*^HH!y h) 

|±J*o ! E 3 E 3 §IJ y jA^Tib-So £©SlJy&<&-EV>3 
7-OtTV^*/c #*©o 

t -f (i — ® HT h & o SO y IA A E © -5 © (4 , — 'O^SL e (±¥ 4- 1 T v > -S A C HfSa* 7 o 
T < S J: 3 ^feOTfe-So *©ABftl£©'<'P£|lf|< E, ^•E > ©tt*©t"©§II^ ; &^ :, oT 
s-/ K»UtB4 XI 



0 4-1 V-A + -SESI21 



1'<-T h g 
2 /U h g 



d 7 


d 6 


d 5 


d 4 


d 3 


d 2 


D, 


Do 


Q 


w 


E 


A 


D 


z 


X 


C 




* 

7 


*4 


*i 


8 


* 2 


* 9 


* 6 


*3 
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180 ’ 

190 D$=CHR$ ( &HE3 ) +" 
200 DUMMY$=USR1 ( D$ ) 
210 GOSUB"DISPBIN" 
220 * 

230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 



. " : 'READ GAME KEY 



D$=CHR$ ( &HE6 ’ READ NORMAL KEY 
DUMMY$=USR1 ( D$ ) 

GOSUB"DISPHEX" : PRINT 

GOTO 190 

END 

LABEL"DISPBIN" 

FORI=2TOLEN(D$) 

D=ASC(MID$(D$ ,1,1)) : PRINT RIGHTS ( " 0000000 "+BIN$(D) ,8) , 
NEXT 
RETURN 



LABEL"DISPHEX” 

FORI =2TOLEN ( D$ ) 

D=ASC(MID$(D$ ,1,1)) : PRINT HEX$(D) , 
NEXT 
RETURN 
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190 INPUT A$ : IF A$="." GOTO 240 
200 CODE=VAL( "&H"+A$ ) 

210 D$ = CHR$ ( &HE7 ,CODE ) : DUMMY$=USR0 ( D$ ) : BEEP 
220 GOTO 190 
230 ’ 

240 D$=CHR$ { &HE8 ) + " . " 

250 DUMMY$=USR1(D$) 

260 GOSUB" DISPHEX" : PRINT 
270 GOTO 190 
280 ’ 

290 LABEL"DISPHEX" 

300 FORI = 2TOLEN ( D$ ) 

310 D=ASC { MI D$ ( D$ , I , 1) ) : PRINT HEX$(D), 

320 NEXT: RETURN 
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BASIC© TIME$CfflS-r*fe©T*4o 4-6 CfttKDo 

B#, #, f*©ftffl**B*«*.T|SBibTfe, fcfctfcEttfcttcriESftTUS'S <fc 

II 4-6 0$ ft x — ? 0)1*931? 



iM'-r f s=uf 



2/V-f F g=«- 



d 7 


De 


d 5 


d 4 


d 3 


d 2 


D, 


Do 
















r 


1 


100)14 




1 


10)14 


1 


X 

















100)1 a 10)14 



3/W h i=8> 



I I L. 



(xii*a) 



1001 14 10)14 

0f ltO-23, iMr#«0~590)1S^lg$-r?.c 



(D D0 h ~D 7 h , D8 h ~DFh (9 4 v-fey F /Irc&ai L) 

v>J:F>J;tt:/CPU©3 vy K k*#-r£>S 0 *tf 

C©TV^>fvttHintttl©S#^e>*©*fo *©^Att##:fcltt8!W& 
Lv^J: -5 Tib^o 

v>*4Dm , r<s r«»«*ioa*j t&% 0 to* 

(DX’foZ> a Z(D94 vfi TV ©n y F □— frtzttTttfj: < , y hr y *© 

-'OUMBSTfc-So Ttt, JSfctf5Cj&*J:^o 

b^Z>tz6? i*. H(i XI ©* -f vti^gp-c 8 fi£> 6<Dtz 0 tZ.?> ifig 
A, ASK n vy F & t'T^ -1 K CAit fc ? -f v& 7fSL;& : >StF£;ft<*v ; >o 1" 

**)%, v OjttBft*-f^*©t k *ofc 0 b*»fc ASKTRJETSSOttTVay 
F n-;i/©^T, S feCW^OlRTCtt^Oa > F v-;ub 90 H ~9B H fc J: tf 0D„ (/<7 
-0FF)*?tt*©T*S o -f :MvC»3£3*i;teB#aa i Sfc&* 

file crv off* if*) utru fotii^ y^-^cjgjesiifcr^j rfccra 
Uttf^**Oig-ri:V^fc©T*So fek Atf'f lfl-KJBSU 

$ a- FC-fSfc, Cl ©«&fpii F^/Wlf frh, l»rtK:TV0W*sfflfc9tti*<*ofe 

£fga>-fr i-5 fc frv>S©tt**fc^»Ttt*v». 
teD,, D 6 £JI§i:, noj T»|k**f!l!)a*i:*5o 
RSbfcBt&lK:** i:V-yCPU^e.ll9a**»*'We>ixS©T2bS. J'?- 

'<>M»W3&TfcS 0 £©:fet»b*3*«#ttR8i9>o< D kjEfati, D,, Ds**niJT*f 
I^AIryFf-mS, o£D, 

^ > F a-A/ftygfi E9 H Tl£ AS fc©*i1-^T OK t£frt>, 

92 K* ictus XI 



@4-7 LCOrtg 



1 H = 3>h 



D7 Ds Ds Dd D3 D 2 Di Do 



■-T >?-/'UKl~59$-)(il<7)t ~ *>60,61 fcOK 
<7>J: -7 T-$>Z)0<nt $ Sio 

D, D 6 



0 


0 


J 


0 


1 


*t»UTV 


1 


0 


JlfUtfU U Ji* 


1 


1 


tj-tzy hf'y^ 



2 /'"'T h i = 3 > h □ — ;urt# 

• 21fiA ! TV<7)ii-&(ia v> KE7„ffl<7)P> h □ fc(7) 0 

• ‘J h ;u. 

• -tz "J y x-y * (Dif-g-liP v> KE9„ffl(7)3 > h □ — ;U^<7)fc<7> 0 
3'W h a=*(0~59„) 

• 0tlt<7) r -S-jtl5lD„ 
h i=at(0~23„) 

• #^09(:a#It<7) r 0#ji:l5iD„ FF„£f£:£-f $ *&JHi(xx)ctt*„ 

5/<-f h i=fl(l~ C„), ailH (0— 6„) 

• r m B j £ Is] D „ 

• flu 0„,a*HUF„£li:£-f *n*Uxa&Si(xxifc(jxxx)C4-5o 
6a’y h a = a(i~3i„) 

• S^frtUCTjUV^'-OTrgjiriBiCoOOH^JI^T?)^, *5S(x x)lc&5„ 



Af £ * if t 5 KI£&*jS t> L f#£ ©T*£> 3 o J3- d fr„ 

fcUff**— , StKiot 

vA^^lz-tr "j h 

fcfcff, y-Ai»v»S49±S? Tbta, &ifhv>-5 d k*s*9#« 0 

1) yf-SOFFC-ra. 

2) 2 0*fr?£fTo o 

3) t -i '?■?& ON Kt5o 

JJLtT-9- 7* CPU CR56 5 ft A * 4 v tt I^T ? V 7 £ ft § 0 

K, ;Mv 0 « ASK 37yKCi5^-f FCfc'lA 

i7* Lti cfcV' v LED**o 

uTV^U0C J f , 4Ott^U!: , )o 

tv>a k txAu/o/^AIi 'J A F 4-7 fcfi, £1*230 

ffTH^t^EO^ 9 J! 18 B© 16R#10#55#CLTV>£o ^ v 1 «, 16 0# llftlZ&M 

ztir&D, 08 h © tv/com b® f ^/wt* s. * 4 v 2 mg 9 a*?, r&H8o+ 

*4$ -d-rcpu 93 



■j* h 4-7 



100 CLEAR&HDFFF 

110 DEFUSR0=&HE000 : DEFUSR1 =&HE003 



120 


MEM$ ( &HE000 , 16 ) =HEXCHR$ ( "C3 


06 


E0 


C3 


ID 


E0 


FB 


EB 


56 


23 58 


CD 


34 


E0 


CD 


46" 


130 


MEM$ ( &HE0 1 0 , 1 6 ) =HEXCHR$ ( "E0 


F3 


ID 


56 


CD 


34 


E0 


23 


ID 


20 F8 


FB 


C9 


FB 


EB 


56" 


140 


MEM$ ( &HE020 , 16 ) =HEXCHR$ ( " 23 


58 


CD 


34 


E0 


CD 


46 


E0 


F3 


ID CD 


3D 


E0 


72 


23 


ID" 


150 


MEM$ ( &HE030 , 16 ) =HEXCHR$ ( "20 


F8 


FB 


C9 


CD 


46 


E0 


01 


00 


19 ED 


51 


C9 


CD 


50 


E0 " 


160 


MEM$ ( &HE040 , 16 ) =HEXCHR$ ( "01 


00 


19 


ED 


50 


C9 


01 


01 


1A 


ED 78 


E6 


40 


20 


FA 


C9 " 


170 


MEM$ ( &.HE050 ,10) =HEXCHR$ ("01 


01 


1A 


ED 


78 


E6 


20 


20 


FA 


C9 " ) 












1 O Y) 

190 


POKE &H54 , &H60 , &HE0 : ’ SET INT. TABLE 
























200 


MEM$ ( &HE060 , 10 ) =HEXCHR$ ( "F5 


3E 


01 


32 


70 


E0 


FI 


FB 


ED 


4D" ) 













210 POKE &.HE070 , 0 : * INIT INT. FLAG 
220 CLS4 : WIDTH80 

230 DATE$= "85/09/ 18" : TIMES =" 16 : 10:55" 

240 * 

250 D$=CHR$ ( &HD1 , &H40 , &H8 , &H 1 1 , &H 1 6 , &H9F , &H 1 8 ) : ’ COM . SCR. ON 16:11:00 
260 DUMMY$=USR0(D$ ) 

270 D$=CHR$ ( &HD2 , &H80+ 1 , &H54 , &H 12 , &H1 6 , &H9F , &H1 8 ) : ’ INTERRUPT ON 16:12:00 
280 DUMMY$=USR0 ( D$ ) 

290 D$ = CHR$ ( &HD3 , &HC0 , &H0 , &H 1 3 , &H 1 6 , &H9F , &H 1 8 ) : * EJECT ON 16:13:00 
300 DUMMY $ =USR0 ( D$ ) 

310 * 

320 D$=CHR$ ( &HD8 + 4 ) +" " : ’ READ TIMER 

330 DUMMY$=USR1 ( D$ ) 

340 GOSUB"DISPHEX" :PRINT 
350 ' 

360 ADR=&HE070 :KAISU=0 
370 LOCATE 0,1: PRINT TIME$ 

380 IF PEEK (ADR) THEN POKE ADR , 0 : KAISU=KAISU+ 1 :* CHECK INT. 

390 PRINT KAISU: 

400 GOTO 370 
410 END 
420 ’ 

430 LABEL "DISPHEX" 

440 FORI=2TOLEN(D$) 

450 D=ASC(MID$(D$ , I, 1 ) ) :PRINT HEX$(D), 

460 NEXT: RETURN 



1J tfrbfrfrZ i-Sfc, 1#<ZM 

*>, i 6 m 12 #j m 1 t o &****>» ztiz 1 > h & Q 9 * ^ 3 « * -tr y b ®<h 

fPT, 16 m 13 EJECT WfffttotiZo TV a y b t ** y b 

SOD a*'** b7Wi54 H Tfc 

So 0054 H #ife^»^tlTV^7Fl^X^^ o TCT190 

fre&, E06o H **sa^*s 0 ^iB^ffloa**ffla'rs;i/-f-ytt 

200ffK:*So AT, 



PUSH 


AF 


LD 


A, 1 


LD 


(0E070 h ), A 


POP 


AF 


El 




RETI 





k4ot^5 0 fc E070„#ifiC li^y b ZtL& 0 *Z~C 

*1 BASIC 7u 7*7 A^' 360-400 frOffiR*' 

-7°T*l>o To t E070 h#%£>I*I^£ PEEK 1 ^Mr y b Sflfc 

<fc -5 

ST, IEUv^0®©#l5#tte:c:T*S7>f7 , 7Sr®v^^*tfntf*6*v^ o -Ot 

0 , ri6^12^#J9a*^36^ofc*?>, R#ff-£ 16 

04 M*£ttJ*Xl 



B# 11 ft 59 %(D 1 £ /Soil 0 Kjgi,i& v^o H#irHi$Eo 

T L £ -5 **, *N£feTtt * < 9 & A ^&5ui: **T § & ! J D 

*:*.»*, PRINT TIME$©£i9Igt) 2 #C' h ©#J 9 if b nj#£& J: 3 £**, 

< I±'1^7fc^©^PST©il!9jA^a (ItfcKli) ^a©J; ^T*-5o 
$ €> ctttto ? 4 T^[plB#cfJ fc * 9 f§S a*, * © ± -5 4ttSK# 

^ A. fc J: oT$>Z> 0 
S^C*rpfc*S, 9XM-8, 4-9TS.-S 0 9 X h 4-8 «*-glJ9 jA^O^S^-f- > 
©T-tr >7>9 X bT&So MT^-Siac, Htt £©*§-&& + -T-;? ^Sn^aj-f© 
CggbT, f-^CPU Ka v> F E6 H ^IioTfeii^* < Tfc J:l>©tf£ 0 gfc, turbo T(i 
RETIfSMK, •9‘7'CPU.C E3 H £j£oT^;Mffr-A*-fcSc&& 0 9 X b 4-9a*£© 
^-fy§gof;ty/ms 0 h/P54 H *fllv», E060 H ~©^-f- 

rESCl ^fff^:^^ hl/§52 H CLTSIb5o BASIC Tit, >fy 
Xt£*#o TV>T, £ ttf-C%2,(Dtztf, Z.(D)\'—=f-y'Q\t^Lta 

iktt-ffK, EO8O H #ife*»€»0 2'M h C7 r^S'a y®fc ASCII gflOr-* £## 
'^'C^i,tz^’Chi>o 

XfttoVTtb-ofZo v»^g m-;t?^y|0y-Atfc^5 fc-ts fc, -9* 7* CPU 
j®tttiitLife> Hf7 D -f -S o £©^£p®AC*T, 9J— fffOfbt 

§ /iV^ 0 



MX h 4-8 +-10‘Jii*®:Jl;u-5 1 > 











. Z80 














.PHASE 


0E060H 




E034 






SEND1 


EQU 


0E034H 




E03D 






GET1 


EQU 


0E03DH 




E080 






KEYSTR 


EQU 


0E080H 




E060 


F5 




INTK : 


PUSH 


AF 




E06 1 


C5 






PUSH 


BC 




E062 


D5 






PUSH 


DE 




E063 


E5 






PUSH 


HL 












LD 


A , 0E6H 


; D= COMMAND 










CALL 


SEND1 


; SEND COMMAND 


E064 


IE 


02 




LD 


E, 2 




E066 


21 


E080 




LD 


HL, KEYSTR 


E069 


CD 


E03D 


DATA2 : 


CALL 


GET1 


; RECEIVE DATA 


E06C 


72 






LD 


(HL) ,D 


; STORE DATA 


E06D 


23 






INC 


HL 


; INC POINTER 


E06E 


ID 






DEC 


E 


; DEC COUNTER 


E06F 


20 


F8 




JR 


NZ.DATA2 




E07 1 


El 




> 


POP 


HL 




E07 2 


D1 






POP 


DE 




E07 3 


Cl 






POP 


BC 




E07 4 


FI 






POP 


AF 




E07 5 


FB 






El 






E076 


ED 


4D 




RETI 














END 
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') * b 4-9 BASIC b r 'J * b 4-8j 9 



100 CLEAR&HDFFF 

110 DEFUSR0=&HE000 : DEFUSR1=&HE003 



120 


MEM$ ( &.HE000 ,16) =HEXCHR$ ( 


"C3 


06 


E0 


C3 


ID 


E0 


FB 


EB 


56 


23 


58 


CD 


34 


E0 


CD 


46" 


130 


MEM$ ( &HE0 1 0 , 16 ) =HEXCHR$ ( 


"E0 


F3 


ID 


56 


CD 


34 


E0 


23 


ID 


20 


F8 


FB 


C9 


FB 


EB 


56" 


140 


MEMS ( &HE020 , 16 ) =HEXCHR$ ( 


"23 


58 


CD 


34 


E0 


CD 


46 


E0 


F3 


ID 


CD 


3D 


E0 


72 


23 


ID" 


150 


MEM$ ( &HE030 ,16) =HEXCHR$ ( 


"20 


F8 


FB 


C9 


CD 


46 


E0 


01 


00 


19 


ED 


51 


C9 


CD 


50 


E0 " 


160 


MEMS ( &HE040 , 1 6 ) =HEXCHR$ ( 


"01 


00 


19 


ED 


50 


C9 


01 


01 


1A 


ED 


78 


E6 


40 


20 


FA 


C9 " 


170 

180 

190 


MEMS ( &HE050 , 10 ) =HEXCHR$ ( 


"01 


01 


1A 


ED 


78 


E6 


20 


20 


FA 


C9 " 


') 












POKE&H54 , &.H60 , &HE0 


































200 


MEMS ( &HE060 , 16 ) =HEXCHR$ ( 


"F5 


C5 


D5 


E5 


IE 


02 


21 


80 


E0 


CD 


3D 


E0 


72 


23 


ID 


20" 


210 


MEMS ( &HE070 , 8 ) =HEXCHR$ ( 


"F8 


El 


D1 


Cl 


FI 


FB 


ED 


4D' 


’) 

















220 MEM$ ( &HE080 , 2 ) =CHR$ ( 0 , 0 ):’ CLEAR WORK AREA 
230 » 

240 INIT 

250 D$=CHR$ ( &HE4 , &H54 ) : ’ SET KEY VECT. 

260 DUMMY$=USR0 ( D$ ) 

270 » 

280 PRINT RIGHTS ( "0"+HEX$ (PEEK(&HE080 ) ) ,2) , : ’PRINT FUNC. PART 
290 CODE=PEEK ( &HE08 1 ) 

300 PRINT RIGHTS ( ” 0 " +HEX$ ( CODE ) ,2) ’PRINT ASCII PART 
310 PRINT#0 CHR$ ( CODE ) :'DISP CHARACTER 

320 IF C0DE=&H1B THEN D$=CHR$ ( &HE4 , &H52 ) : DUMMY $=USR0 ( D$ ) : END : ’ IF "ESC” END 
330 GOTO 280 



96 KlfcCffiSXl 




ctc 






gg5^ 

CTCI*»ii&0>Ta>& 



ZCD^Tlt CTC % s r‘&CDT$>2>o CTC b if Counter Timer Circuit ©B§T£> 5 0 
£ C T is < ; t C Non turbo © XI ic f J CTC, to A 1/ SIO, DMA 

tb>C, *7°i/ 3 y©CZ-8BM2£ft-imif, *©tf- F Eif CTC fc 
SIO**«oTViS kV»5^®T*4(CTCttCZ-8BM2^Tt), *#11*'- F, FM gf 
It-:-FCiotl'l))ou© CZ-8BM2 if, RS-232C ** 1 f- +■ > ** b V * X A y ? - 7 
**»**>©>!?“ KT*S 0 CTC t SIO ii*©tf- F©*^±®£iKCT 
ViSfrttT&S**, ifo^DW-oT, il©tf— F if turbo © CTC, SIO Jf V ©Hie t if t 
/ot°fn]C%(DT&6o ng— ©ilv>Jf, I/07F^Ti4 o turbo T 

if, 

SIO =1F90 h ~1F93 h 
CTC =1FA0„~1FA3„ 
ti r>tz(D **, CZ-8BM2 T & , 

SIO =1F98„~1F9B h 
CTC =1FA8 h ~1FAB„ 

o fc«tcntti*ai?8fi^©»3eT*a*»«». Fa-ify^ns 

A Ft if turbo fc^-^fc'slRlUTFl/XCT-Si'Ifcb ^Jte'CS) -2> 0 i^OfefcER 5-1 , 5-2 E 
TKCtio < o 



*5-1 SIOTKi^X 



7FL/7 






1F90„(1F98„) 


* + >*.iUA 


IN/OUT 


1F91„(1F99„) 


■^-rVTwuA SIHWR 


IN/OUT 


1F92 h ( 1F9A„) 


9-V>*JlsB h 


IN/OUT 


1F93„( 1F9B„) 


?- + >*Jl/B $IJ»H 


IN/OUT 



*5-2 CTC 7 V 1*7. 



7K UZ 


F*D ^ 




1FA0„( 1FA8„) 


J- -V JU0 


IN/OUT 


1FA1„( 1FA9„) 


* + >*;H(SIO^-v >*JUAffl?P-yX) 


IN/OUT 


1FA2„( IFAAh) 


?■ -r > * 1U2( S 10 * -r > * lUBffl ? □ -v X ) 


IN/OUT 


1FA3„( 1FAB„) 


-? 1 -7 


IN/OUT 



98 U.mztHi>Xl 



* - TifO 4 4 **, * -fa CTC ©ft| I? && ?[? 4 A-> x 

7U >?'fc k'#J ^^^tU5©Til>o ^ 31 tttt'S < X, w 

£ RI 6 f tz Vt£(D tz ±i, S^atRlU^OT^JlBiSf^lAtfT jft^&OttT 1 1 1 <7) 
X'&ho 

%&, £©£-Cf 4 #%:£iSIU**fc-& 

CTC^WBTftS 

Z80 CTC Ef4 0#ri>6 3#lt, 0OOft>|.M5|iSo 
H oT<^-tt(f-?-fL ; e'^x*^3ib/>:B#ft/* ? yX© 4 5 & %><D~ChZ> Ofc^&TG^E® 
iLLX v>Sfc^Ttt*Vi©^*s) 0 ^okBMI!1-« t, XiTti, £*7,600©^ + y*;p 
Iiro0^-Zi;^5 o t v*>^0, 3tf + ^;H, 2T-^5 0 

XI T-« ■? + y * ^ 0 , 3 ti± E X T v t it V > ? te&ibtlT v> & 0 Z80 C*f t 

t— < tiz><DTh& a — gstpirt esi !)&*&*>#-£ < 
tizt k*©4-&X V y btf$>&frbi>*5 k, tz k *.fcf £ft,*»6*>$ 4 -5 *, W3££n,§6 
-r«^T 2 bSo 0^9, Z80a*HI©£kE*W , *L'O»'tt>, CTC**rJb*fc, 

PSG t&UL? < tiZ<DT$>6 0 oJDIiS*© 

4 5%:h(Dt£(Dtz 0 fMf#V>£&4*Uf, g#TLj:o6^3B#tf£JLT^&(4tU£v>fr& 
v>U 5 o *> t) -4 *U41&& 6 tifc^P^£®£*l,TL£ Lti%^<DT$>Z 0 f- + y* 
^0, 3« ; e©i-5Cffit>*l,TV^©'t k S)-5o 
^ftEfcfLT, XI r«?- + y*;H, 2 (i SIO Cd^mti^So M##JEM£bTV> 
3*>kv>3k, RS-232C tt 300 bps k *>, 1200bps k^Ofe&i&ga** 6 **, Z<Dtzkb<D 
S*pXnyX£ff=oT ^2><Dtz 0 ?%b%, XI ? SIO 5 k f S * 6 , H1*J4 CTC 

* 5 H— MHe&r3-Ciy&0T-£.£ o ; ?-£V:>6'\A,©£ k&, &©3t 6 ¥?o £ Tfbfrfotj: 
Z>T&55o 



CTC«<*T &3 

CTC ©avypii^g Vi„ 0 5-1 E£ 3 4 5 E 3 v y F (4 1 *4 V ~Ch 

%> 0 £*i£, 0P©ft y*;PE®|* E&SfrlfefcSo tfc^n tt, nvyKffll 

ftc r^-f Anyx^y bj kWfftS l^M b£ii£S £ k fc&SU f + y^;HKS 

LT(4 r#J5a^^Xh;Pj fcassikfcfcsa*. t5JBH*tlt!0T&&o 

&t, cTc©^^£k^, £•< r<ie#csi^b-c4j<o i»k, @ 5-2 
3fcv» 0 £*U4CTC©»«H , r*S. rCLK/TRG„J tfr TZC/TOJ * if*** 5**, £ 
*l»4CTC©«HpJ6T2b-5o rCLK/TRGnJ k(4 r*MB* a >y X/? «f v • b >J J kv»$ 

£k-c, *-r*e£?-+y*/urkE*3A#'r2bSo rzc/Ta,jnr^n*^y h/^-f 
A-r-Zhj-r, £6 6tt ; eti, ; e'ti©? L + y^^©[±i*E^)-j*:-r^ (*:*fi,f- + y*;p3 
ffl© ZC/TQ,» 4 tfy©»©#^KJ:rj'r, #^*tT^- 5) 0 



*5$ CTC 99 



®5-l CTC &>■? + > h n-;i/7- K 



d 7 


d 6 


d 5 


d 4 


d 3 


d 2 


D, 


Do 



D 0 =^U 1 IZti 

>*Jl'O(lFAO H )<nm-glZD 0 =Ott bit', F)U<n 

Ij»sn%0 ^^>^WH~3(lFAl„~3„)CUSiJtJiiA^^ 
:? H\s£1 IS:T'#4'L'o 

D i = ij -tr -y F 

D, = lTKif^#jt. blD 2 tflKbl£, 9'(Azi>7,9> !*<## 
D 2 =8fFB^|g[<7)^^ 

D 3 =lT*ifcC£31/\'4>A<:?<An>:x?>hT**3Xb£*-f<, 

d 3 = h ij ii<n^m 

zoUv Ki^-rv^e- K(:fc'.'T<7)^.^e^A < *?> 0 

D 3 = 1 T-HJ*tCLK/TRG) Ci-oT^'fvKiflEfc Mtef 4 . —at!)# 

fclHteLfctt'btf F 

D,=x-y i><7)m!R 

J-fvt — KOTfcStt, D 3 T-®-5 HJ St 

A')£>*tf>5> 0 D 4 =lTjt%JiA < i; *<%$&, D 4 =0T'jt*> 
TA< U £ £ £ « 

K<7)fc#«, D,= 1 

DrOKblfttTtf') XI 

T*liCLK/TRG^A-5/\'JU7.OTtLi=,Ji*< t) <7>MPftli*s 

i'(7)T-, (S i: A.4T*B5|5 * < ^cv.' (CLK/TRG 0 'Mi/'OU*tt$fcfcl.' t 
CLK/TRG,, 2 lCti2MHz* < *Tl'?.<7)T-, lLb±tfV t3L*>Ttf') 
<7)fa]PilJl -r2MHz-r2 = 250ns, CLK/TRGjCttf 1 v b 

ZC/TOo^T t'S AS CTC <7)'I4S £ LTZ <7)/s*;U7. (iifl a<0<7>1.5 
fgfISOT— U jt-S) 5*'G, Srfe-t^U i: 1-r 
4MHzX1.5=375nsT-*5>) 0 
D 5 =y; X*- 50>iSU? 

-<7)t*-y Mi^-rv^E- KCtJl'tfflAtWJiS. 

D 5 =1T-7 P| J X4— 5tt0(4MHz)£2564HHT *. D 5 =0T'16-fr 
t>J„ t>0>9=E- Kt MZf') 

D 6 = — KOiilR 

D 6 =lT-*t7>$’^- K, D 6 =0X'5' -f v^E— K*nMiR<*tt5>„ 
D,= 1 T'^'O > * -5 > 9 tfOC 4' $ tz l/cfij II JA* " t o 



CTC ©**££», BBI 5-2 © TCLK/ 

TRGnJ b < tt, ^Xf-A^ay^0^(XlTtt4MHz)TJbS o CTC©#^-^*^ 
Ktt kv»-5 fe©**Jb9, mmi = 

bj fc-f£©-C£>£ (;M An y b a 0~255 LT^S),, 

tt, (Iff, 

16 {0, 256{&<D~-3(Dm-n&&6) * 

It, 0 K&£ t (fcHJtfOfcofcfc&tf, 256 HIM h t Z t K * 

5), rze/TOja^— oA/l/Xftffi-fOTabSo t>S9, ^©RSl/nctiOT 
£>S 0 rZC/TO„J^6^X*aj-r©l:V» 

oUG, CPUK»frftlDa***>ttfc9 bt6(D'C$>6o &, ZtltfCTC <D*z>X 



hT$>Z 0 

37XK(i#b*'y 1 rtGl^otU?.®t, D,*»fc*Kl^LTV»<0-pJb-5o 



ioo tsitnaiixi 



HI 5-2 XI/ turbo CTC >*;K7 )#Ie£ 



4MHz 



CLK/TRGo 






ZC/TOo 



CLK/TRG, 






ZC/TO, 



CLK/TRG 2 









zc/to 2 



clk/trg 3 



-Vcc(+5V) 



-2MHz 



□ »y * 



^SIO^* I 7 > ^ JUBffl ^ □ 7 y 7 



•2> o 

n,tt«-F©i?^T*So rtf* v^-kj t 

t, ttr>bi-&Al>*$^’C3b*>5o 

(XI Tfi <£=4MHz) £»*..6J 
FTtt, CLK/TRG„fcv»$^C*S/</l/X*8*Sj 
fcv>5fifr©d tTS)So 

D 5 (i D 6 T7 'f -?*:— F^HiRLfc k § Jd©#.;gi>££f#o 0 ZfrU, 7°<J Z-y—yCDfS 
MT, (D 5 =0), fcb<«:256{g (D 5 =l) -fS 

v^e — FOfc ^(DXtKD 4> 

It, — JlKWC 4MHz # JffcV^SS^JSiSISC&OT*, 0~255 

TISC £Ti>, SS:A^|b-5©^io t < T 250 ns x 256 =64 /<s L*>& < , £>£9i£^jl 

fcv»5 Zilog©Sto£fc#*.<&*iS >?£ 2'f 

W £ <t 3 Kt 0 ^lHi0C o ^oj:o) 0 ££>, d d (i A o t -tr 3 'f 

Thz > 0 

D 4 ttxyS?©aj?T2bS 0 ddti (XITti) 05-l*j|TJS< 

tio 

D 3 fc XI TttiJJliTttftK 

D 2 A3>x^y F &;&&A>fc"d^©77^&£ 0 ig8^T J ?>-2> Z80 DMA 

£5$ CTC 101 



©fflfg •£ 4 >9 b 

D! ti'J-fey hti>5iS, of D, CTC (t V -fe y b£*>tf 6 

tlftfritzfttb, %<Dk §^TV>SIlf££iS$*.T *><:>, fft^nvy FKSc?<i)ff5 
H3£6t'3©T : '£>&o iot, 

D 0 (±, 3V/'F©%pKli, #ClCLTte< 0 ££>&<&”, B 9 &<&••''*? b A' &fi5lEE 
SftfcfeOklWRSftSo 

niia^^hiu 

CTCT’fi, b /Wi, f- +• V** 0 C*f bTO&Jg^T 1 # 2. £. 

-5 (of 9, ilDa*^^ b/i'SOUT-e*S0J±lFAO H #ifiC©fr)o ftfeof- 

* v*;Wi#J9&*£*>W- £>*i*^0*>fc, -R®otLl^i5 5i5:m 
>U0 fc*fLTjg5£-f S t, fife© 3 ?•* yfoucfe gtt»eil0&*^ h/u**»9 ST <-> 
tlSOTfcSo f &*>■£, iILfciO0^;b;V (8^M b) *** fcfc TJBje 3*1*0 
T*S 0 fc/i U -€-©8^M b Cte^fllJESaJ&So **tttif-»>“£ *:***: v»3 k, f- 
+• y^.;bO0^ b M i, 

&B?????000 

©f-C, T3 t*y b*50 C&oTV>#fr*U£&«'>&v>©fc*o ;ot§#f- + v^;P0^ 
? bMi-£*i-f*i, 

1 — »&B?????010 

2 ->&B?????100 

3 -&B?????110 
k&£ 0 

Tfco, ::C8 aM b^0SI*^5o ft ft, CTCoaiOJi^r- 
/;H;«otLf 3S-5J *ifkn$ >1 fcfifFStt&^C/io of 0, *©8'M b©^H 
**, 

xxx8 h i'XXX0„ (T 3 t* y b 0 ) 

£ <D&, &SS# 5 'j&l?'CS>§ o 

CTC<rtffiV,'73T&3 

3T, fc-rtfi-fckfWJULTSfc**, XI ©*S£-«^- KWtt CTC ©flev^tfJMfi* 
©T, l^tf d k «-tfA,-f£A/&^©t‘&* 0 of 0, #3fe© CTC & D 3 = 1 ktSit 
T, Tffl-t (b U ) *^iz;t»±^oT^?), -3e«pMaG«Da***»»iJ #ifkV»3« 
&&&*£>*©*!**, k(± XI Titfe£%:^<DT$>?> ($.5 5)o xi T 

© CTC0®S!J(ig*Tffi#HJIR-r, ftOHoCietl £„ 

© I5-2KSLfci5e, XI Ttt?-* >*;K)JB© CLK/TRGo tt Vcc (+5V) E 
oWotuSo -f &*>■£, /N°;i'X*^t£^^&v>©T% ?-+• >foM) (±:M V^e- K 
io 2 a mz a 6 xi 



T'06-5 -?-©±§-a, -v 0 (i, 4 //s~16.384 ms 3." t C§IJ 0 OT < 

tis, 3©^p|Hi*ss-r^s*», zc/to 0 * s 

CLK/TRGa 3 tlli 0 , f-*y*;R3 ** X y9 *£- FtfoTft 

fc, 4.194304 ^©HRS’M&fciTSo £/c, y^/M), 3 

SrHI« K»*>f 3 h fcWC&So 

(D f-*y*;H, 2tt**l7e*lSIO©f- + y*/uA, B0^ny?co4itom0 
T, *tt£9K:ffioT' J ? s So 

fcflfU *^fav»;fc*6tff- + y*/l'0, 3kPIUJ:5C, ®l9&**ie3 £-££ 3 i: 
(CLK/TRGu CH 2MHz y*/W 0 J: V =6 ®J OiZs^P^PH^ 

S<t§4)o 

(D OUT ifcirTte ft < , IN ppfT CTC C 7 X -fe X -f 3 fc, 

; e^^-5fc>UT*^(3-®oT^50-Ci.-2> 0 Mffllt, ©c^UfcT'fty^fty^S Mfr 
tb-fO^^oT^So 3ti^f>S!J9a<&- : £'^'5'i;'^*^v^O-CAP^t UT«ib’$)0?)^tf 
rrjiSo ty/A'/n/7Ali V A h 5-1 



yxh5-i 5 



100 


OUT 


&H1FA0 , 3 


:’*+>*k<d RESET 




110 


OUT 


&.H1FA1 , 3 


RESET 




120 


OUT 


&H1FA2 , 3 


:'+*>*b2 RESET 




130 


OUT 


&H1FA3 , 3 


:**+>*k3 RESET 




140 


» 








150 


OUT 


&H1FA0, 


&B100 111: OUT&H1FA0 , 200 : *f*>*/P0 


SET 


160 


OUT 


&H1FA3 , &B 10001 1 1 : OUT&H1FA3 , 200 : ’**>**3 


SET 


170 


* 








180 


PRINTINP ( &H1FA0 ) ,INP(&H1FA3) : GOTO 180 





100~130fft k f2i^©fc©ft©T k , #f-^y*7H3 3 £ OUT UT D -fey h OTl>£„ & 
KlSOffTf-^V^A'OKOUT UTV^©«, &B00100111 T£>3 0 
IWClLT^ < t, 

• fjy&^ftt 

• F 

• 7>J A'r-yht 256 53-#J 

• i^Lt «fc^ 

• ^IHUT 

• ft.izf'f A? yz?y h&9 

• y -te y b (D 2 = 1 *?*>& 7 T A 3 >x 7 v b *#SaSLttfcfcT»fft»&) 

• D„ 1 

***»e»»KOUT frv»S T200J fi^AnyX^y t'TS.So 160frC 
ttf-yy^^3C&B01000111 *OUTL'CV»5 o 3*'lfcJllK:Jl 1 Tt9> < t, 

•mo&frZL 



*5$ CTC 703 



• KH&& b 

F£>D 

• y -fey F (D 2 = h*#saiitfcaT»f^PIB&) 

• D„ fifth 1 

T&So 150 fj t IH C < , SCOUTltv^ r 200 J T A 3 yx ? y F T&So 

•rOJ^CCTC^IS^LT^S t, t°5%Zftk^5 t, 

1) ft^0tt^-fvt-KT*4i»e,, S/XfA^D'^©^ (4MHz, Jiffiti 
250 ns) £!&;t£o 7° !) X ^ - 7 *i 256, ? T A a y X ? y F ** 200 T& -5 *> £, 
ZC/TOo *>£>/N°;l/X£ttl-r©«, 

250 (ns) x 256 x 200 = 12 . 8 (ms) 

t&S 0 S-TSC, 0.00000025#M»l©''OPX£fc tCLT, 0.0128#MM©z\°^ 
X&fl^T^SCTC&So 

2 ) f-*y*/W3tt;&?y* j e“K;«*»& CLK/TRG 3 C*S'</l/X*«;ilSo tcc 

« ZC/TOo ftZ>t£ft-oZ^Z>fth, iigJi 0.0128 #^t£3fSS>''?A'X£tfc;*.S :tK 
&S 0 ^/A3>X^y hB 200 /;^6, UM^A'Xj&ijfcSfctfK: T200, 199, 
198, , 2, 1 J tiSo 1 ©&« £ tz 200 Z, m% t % tl ZB 0 'Mt © Z$>6 0 

ZH fft> (?% fc^BKAo T #> < o CTC (DAffi t v> £ tf, S * 4 vflj 0 && & 

fcfc r^f-^XXj T&So CTC OK5E* BASIC T#^TJb 

•So Uxh 5-2(2, M0 &-?•>'] ©T-fey^A-’JX F, y x F 5-3 a**;ti?H£ 

ofcfllTJbSo 

y x f 5-3 $• run i-st tokj tjiisiifcofe, Bs^is^ytti-r-c^s^o t 

^ C ^ ©ftfe(2 iofc( IE## BASIC 037V * o T v» S tt -f T* S . 13 

LC y X F 5-^oT^S £ t fcT§S 0 f0i#l^7 7-f < &S**, 

I CTRL l +rDl^ff-fttf^fe^anStt-fC^So ZtlH&tf<DJ: -5 *-y-yx B ;i/T k fcS 
**, v*|9&**3BJ!p-rscttt> * 5 t*<2v>/iS-5 0 
T^^IICf^eSoT^S©^, fciot *) tSHftLT^So 
£-f, 220fT"Cf- + y*;u 0 £ t it, An XX7 y F*U25 c* 

ofe; tliWi y X h 5-1© 150 fT t |n| CZ$> So &C 230fTT58„*OUT Ltl^ 
*5, Stl(2 D 0 = 0 T&S^StlO&^X Y >V<DW(.1£.Zh& 0 ZtlhZXO, 

F /l'A 5 , 

f- ■*» y^w 0 (2 58 H 
f- -*- y >v l (2 5 A h 
f- +• y z 2 (2 5C h 
f- +• y*;i/ 3 (2 5 E h 

t&S c 24OfrC£Sf L *y*^3 0l££(2 D 7 = 1 t LTSljyii^^iECl^-ti-rViSiSJ^ 
y x F 5-1© 160 tr tmc T«. So 
7o</ tsucfibsxi 



')x ^ 5-2 









. Z80 












.PHASE 


0E000H 




E000 


F5 


RUNG: 


PUSH 


AF 




E00 1 


C5 




PUSH 


BC 




E002 


ED 4B E01D 


’ 


LD 


BC, (GADD) 




E006 


78 




LD 


A , B 




E007 


FE 40 




CP 


40H 




E009 


30 03 




JR 


NC, OKOUT 


;BC >= 4000H? 


E00B 


01 4000 




LD 


BC , 4000H 




E00E 


3A E01F 


OKOUT : 


LD 


A, (GPAT) 




E01 1 


ED 79 




OUT 


(C) , A 




E013 


03 




INC 


BC 




E014 


ED 43 E01D 




LD 


(GADD) , BC 




E018 


Cl 




POP 


BC 




E019 


FI 




POP 


AF 




E0 1 A 


FB 




El 






E01B 


ED 4D 




RETI 






E01D 


4000 


GADD: 


DW 


4000H 




E01F 


FF 


GPAT : 


DB 


0FFH 










END 







i;x h 5-3 BASIC i:#^(turbo BASIC t'ttK*'4' l') 



100 OUT &H1FA0 , 3 : RESET 

110 OUT &H1FA1.3: RESET 

120 OUT &H1FA2,3: RESET 

130 OUT &H1FA3,3: , f-v>*Jl'3 RESET 

140 » 

150 CLEAR &HE000 

160 MEM$ ( &HE000 ,16) =HEXCHR$ ( "F5 C5 ED 4B ID E0 78 FE 40 30 03 01 00 40 3A IF") 
170 MEM$ ( &HE0 10, 16 ) =HEXCHR$ ( "E0 ED 79 03 ED 43 ID E0 Cl FI FB ED 4D 00 40 FF" ) 
180 MEM$ ( &H5E , 2 ) =HEXCHR$ ( " 00 E0"): , 7Vn5 TABLE SET 
190 » 

200 CLS 4 UNIT 
210 * 

220 OUT &H1FA0 .&B1001 11 :OUT &H1FA0 , 125 : * **>**0 SET 
230 OUT &H1FA0 , &H58 : * 7V32V 9 hi SET 

240 OUT &H1FA3 , &B1 1000111 : OUT &H1FA3 , 125 : * SET 



<D 00 H , EO h £*§&A,TV:>£o 

ZtltztfT&Z o utiTft 3 D, 

250 (ns) X 256 X 125 X 125 = 1 (#) 

3§, E000 H #Jfea>6J&££ U X h 5-2 0*J9&*^fivw- 

< S d y^Bt(7)hib’D I^nM h ( 8 F y 

M fo^7 7 >f y 7 < t£VT&Z 0 220 frfc L < tt 240 fr0 

r 125J § r 1 J *S 0 T, CLS4 t 



sianTfts 

© -£<7)raH5 ( IJ XA) -Cff**Lfei'£* 



msm ctc 705 



thi ti* turbo BASIC © TEMPO 

W^©$t#j$S£^;CtV>-Bo y — ^ytffz < 

S^*CV»Sl:8ttji<, 3!K:^*v»k8»±a< <tofcD-fSO*J: <^^4**, :M 

5fcRC*Sa*, ^«lgT 

#^n/-;/o/7ATIi, (I/O jK- b© IAOIh) ^-3 

T— £©’J XATBGM fc, d^?>©fS 

#f± l/60#<*fe>V>©JI$-C High/Low *mV'M-r<DT, 

V$tU£, 

l/60#©';XA*JSiS©T*So 7 Hi, 7;HXV7 b©r^T 

/•f-yj, ry^^-j ^mi»o 5 at?, &Att>a£n'g#&e ti 0 

(D — o©c t %-|W|B#(c L At'i: 8 

— #J:V^J*i|W|i; < turbo BASIC © MUSIC@at"CafeB>o turbo BASIC TIi MUSIC 
©^^©^r-yti (EH^O) ^y7rCAnTjs<*f»T, HIR©8lfltt*©lfcK 
ffi< BASIC ©3? VF^MLW?,, rntf-i v#|y&*&teoT, 

PSG C&y&tf £ t C i oT, frftoT^So HhffifKfotUn, t'-At 
PCG^7 7-t (y XA&ffi;b£-f fc) BGM SAl^Te t 

^t#5„ 

(D C CPU &7;H-teV.'Av.'£ 8 

£fttt®©^fca»*yiSv»fe©rtfa*, t>t^1*ES0tTiJ<o e ire— # i: < afe h © 
a* (^Hy7bai7KiS) /yy^^7rTJbs, o & y 7°y ^©ep^iisa* 
Hv^*C, CPU ate £fc£ft;fc8ftS0**ttSfc«>©fe©’C k 2fe*o 

as, 7 °y yya^*^«READYfi-i-tv^a b©as*Tt^r, f&m* r$#£A,, feet 
7 °y y^cf- ;?£• hst j;j tv>a e fc&g^f§#ft©t k £>£ 0 e©f§ 

#as -Cafe S * t>, CPU iilfoT^&Omi&fefe^Oifo ^CTT'!)^^ 

777 ©» iff 5 fc , & -f tt 7 ° y y y cm y tz^r- 9 tt * 77 7 k A fet 
i5< 0 ; S'UT7^ ^S!] y li^asa^a ^ tztfiz ready {§-§•£■ a j. 7 9 lt, rm ot t 
i J tff^Ji'lH-f 5-rse rfl&©tt££C*a*&, B#A 1 S^£ 

B&J J:V»5fl6v^'CJbSo 
© *©*,©;*:/< y £Bti+&fFS 

— ^RtrartcfjyjA^^ee it < tizviifrib, ^©ni»*jRjLrv^fmwa*jE 
fit bi:fra>-B ©-Cafe S 0 St^-CIi, 1/100 #©S!l5£&E&iIi5HtI"Cafe-Bo tir^'tyasfF 
■tlSOII^^^^feflFrtnrtlTJbS. fchiUiW, Mlftffi^l/ioofewctt-setb 
ffiiTCifeSo 

■eitif, (D© BGM 5-4C7-fv|fbti^ 

<0 

I5JBJU J: y o fk^CMATViS MEM$5Ui^«i§^n7'7A*E-C(iat<, 

-cafe-Bo basic *© afa^ia?oc-r y *-v»v>©e, tsa/i^aas, mtvtz^x 
106 ut^icaiB xi 



M*h5-4 BASIC JRBGMX?t^~*>' 



100 CLEAR &HD000 



110 


MEM$ ( &HD000 ,12) =HEXCHR$ ( 


"00 


DD 


01 


01 


08 


0F 


10 


05 


08 


00 


10 


05") 


120 


MEM$ ( &HD00C , 1 2 ) =HEXCHR$ ( 


"00 


A9 


01 


01 


08 


0F 


10 


05 


08 


00 


10 


05" ) 


130 


MEM$ ( &HD0 18 ,12) =HEXCHR$ ( 


"00 


7B 


01 


01 


08 


0F 


10 


05 


08 


00 


10 


05") 


140 


MEM$ ( &HD024 ,12) =HEXCHR$ ( 


"00 


DD 


01 


01 


08 


0F 


10 


05 


08 


00 


10 


05" ) 


150 


MEM$ ( &HD030 , 48 ) =MEM$ ( &HD000 , 


,48) 


: ’Max* 
















160 


MEM$ ( &HD060 , 12 ) =HEXCHR$ ( 


"00 


7B 


01 


01 


08 


0F 


10 


05 


08 


00 


10 


05" ) 


170 


MEM$ ( &.HD06C , 12)=HEXCHR$( 


"00 


65 


01 


01 


08 


0F 


10 


05 


08 


00 


10 


05" ) 


180 


MEM$ ( &HD078 ,12) =HEXCHR$ ( 


"00 


3E 


01 


01 


08 


0F 


10 


05 


08 


00 


10 


05" ) 


190 


MEM$ ( &HD084 , 12 ) =HEXCHR$ ( 


"00 


7B 


01 


01 


08 


0F 


10 


05 


08 


00 


10 


05") 



200 MEM$ ( &HD090 , 48 ) =MEM$ ( &HD060 , 48 ) : 'Max* 
210 DEFINT A-Z : CLICK OFF : WIDTH 40:INIT 
220 X=20:Y=12: LOCATE X,Y:PRINT "A"; 

230 MPS=&HD000 : MPE=&HD0C0 : MP=MPS : W=0 
240 SOUND 7, &B1 11000: SOUND 8,0 
250 ’ 

260 GOSUB" SOUND" 

270 S=STICK(0) :T=STRIG(0) 

280 IF S=0 THEN FOR D=0 TO 1 00 : NEXT : GOTO 360 

290 LOCATE X , Y : PRINTSPACE$ ( 1 );:» ERASE CHAR 

300 Y1 =Y- ( ( S+2 ) ¥3 ) +2 

310 Xl=X+( (S+2) MOD 3 ) - 1 

320 IF ( XI > = 0 ) AND (Xl<39) THEN X = X1 

330 IF (Y1>=0) AND (Yl<23) THEN Y=Y1 

340 LOCATE X,Y: PRINT "A"; 

350 ’ 

360 IF T THEN END 
370 GOTO 260 
380 1 

390 LABEL"SOUND" 

400 IF W THEN W=W- 1 : RETURN :» WAIT 
410 IF MP=MPE THEN MP=MPS 

420 Ml =PEEK ( MP ) :MP=MP+1 :M2=PEEK(MP) :MP=MP+1 
430 IF MK&H10 THEN SOUND Ml,M2:GOTO 410 
440 IF Ml =&H 1 0 THEN W=M2 : GOTO 400 
450 IF Ml =&H 1 1 THEN W=M2*256 :GOTO 400 
460 PRINT "DATA ERROR" : STOP 






1) 1/nM hg^00„~0F„^f>tf, PSGO^-O# 

2) h @*U0„fc L < f± h (Ptrao^t) FT** 

PAUSE -&<D i . -ft i) <D)o 10 H <DMa «&© I'M h -SR#P4 PSG 

UftvUo hT$>6 0 ik<D l 

'U hX256 CfflS-+S«MBI, PSG Clift *>#£&£ *lft^ 0 

t-fht 00 H , DDh***^, ro#w- 
tft£ o ifcKfcS 2fibPli;j:“*fe©-CJb5o tSRZO 3ffl 
Ciot, r K J ©W* s Wil5 (08 h, DF„) TtH3itCft-S 0 L*>U 

ittft'UTfiWCft^ft^o OSD, — LmtfX^ibKVtUi, AW©5 

fifi TFJ CHi^-ft^©^ ([7°j-'yJ -5)o ZZT, &C 10 H , 05h 

t f V^^AOfi^OCL-t, h 

ifttt MUSIC TX nfV bft i t tffc-S A* J: 3 

C, Wftt 'JXI 5-4 ©r — 

*5^ CTC 107 



£ X, <I07°n^7A^||C-fe3 < T, b 1 U*> U T^&t^o o£9, 

RUN tStBIOt^K TAJ T F 5. K — F w ~ F-;7rVi-;7r 

V S— BGM fr'3->3-y t&i9 M£tl5o LfrL, io±L%^'o r> 
+ -CJ;ot, TAJ «±T;fc&U8fj< a*, BGM hm.tA,t^iit^m< <DThi 0 

Ztiit l> * 7 ^ ? ZXjfrt J t^^tufy 

)V- t£%r>X^i tv>5 b t£*yfflUT^£©A 0 l:-®-<r i:, Sf'.TFJ 

S-dJ-fAblT, PSG o£ t> PSG0i^i>'A^OO, 1, 8C-f 

tLetuDfi^##iAAT^S 0 "SOUND" C GOSUB fc, F 4>^ U < tt *7*. 

-f h3Y7Fi51oi'5i?li RETURN L*v»©T\ "SOUND" U GOSUB UA 
ISPiT, TTFPSGtt r FJ (DW*tHLX^i0T$>i o 

(S^A?) 265 tru TENDJ *A*iT*4fcw» 0 T FJ tfiftgjR 
<te#T-&S(±feSE§te fCTO +|^1) 0 "SOUND" i» 6 RETURN LAfttt, 

* 9 *mfrtftMtiV*ttU££ ^ o A A U, ;V-/CD^PI GfcK "SOUND" K GOSUB 
t5IT©lfPI) £, itUi 280fr£MTfc 

SfcJ&S**, ry^-i>60A^& < T#t?7y FOR# 

TB $«4o£lTV»5 o t0i0 290— 340 frtt* + 9 b-C^SAtt©^-^ 

X£>i 0 290fTttrAJ*SUTV>4»5‘, 300, 310frttJ: <**?•*-?? fcttofcfrb 
v»ffi*©IWC2bS. 320, UT*^, frb 

W£g£X, YCf^ALtv^o 340tT« ; e©fiB^©^T*S o 
Tfi, 2 mac "SOUND" CGOSUBlfct#Bt'7^otl'l.*^Mt^l.o £ 
■f, MlelOt F 377Fflol)t, *©fc400frTW=W-l fcbAfc 

RETURN bA©T2b 5 (#*> £;&>&? )„ **ltt 440ft?$>Z o W&. WC2^Mi* 
ftASftA&C, $ 6E- 1 ZtllUDtiifrb' 2@gC GOSUB bt* AR#jftVtt W ©ffi 
l£4T$>i 0 tit, 400 Ft© riF W~J -ffcrfcfc W*»e> l§|v»T, W 

©JB£ 3 CIW6 RETURN T&So iil t PIU C k i* W ** 0 C A 5 & T* D iSS ft 
ibtttffcb, IS®, 

l@g-^PSG« r FJ &m b£}£>2> (W= 4 ? RETURN) 

2®g->{5fkb&v> (W= 3 T' RETURN) 

3 0B-*fa l bb*V» (W= 2 T RETURN) 

4 [gg^fsjfe b*V» (W= IT' RETURN) 

5@g-f6Jfcb&v> (W= Of RETURN) 

6®g-»W=0*?*e>, «03vyK4it 

tvsiikcfts. ling 1 2 mg, 2 mg fc 3 mg, ©iwett, 270-370 'n*mi 

t(Dm&, mzxz-i t;u~f5iE]fr(D 

fffl r FJ j6*tiJS£ bfcftZo i- < .1 tAA, 440 fr, 450 JtT TGOTO 

400J fc-S-fe TRETURNJ ;P-#6 El&KJScoTb £ 5 ©T, b©¥©#n 

?7^*y pi tgimmtf&mx&io 

108 u.mz&& xi 



S9©g|5#£W3 L?Zb, MP (7FW-X) *JgLT^S£|SrPJbSo 

MPS (f-^OfelO), MPE (r-7©f|:bD0&) it, BGM **9iS*;te«>0fe0 
T, MP MPE MPCMPS ftf^AtP^oTUDStCAiOT* 

So fcttMOfr-PfcS**, D000 h*^©W^t-7©^b1C, 

07 h , 28 h , 08 h , 00 h 

i ? izXtl'C ^ £ ^ £ /f o © t£A$, 7 Ki/XiiXi/TLI oTHL< &< ft£© 
■pfMSSfcLfc©**. £, JSt±T*So 

■*"pe$!W*V»fc - t k,l^5, Z.<Dt7-v 7 Zfc-o tzm£, BASIC *f 5 5 tfiWUSBlS 
h*)i£, * + t feSil^otL^ h, BGM 

0'JXA (fFiK) *— . 3£cfto©ttSH©S*0*f o C, *S»ffiK*o;fc6 

fft < 8fc* + 7a*mT < s=®-g-^, $ &«:*©&** 7 s *§•£■■?£ s 0 ^©g 

C. a t < tTOito^lHISiaMS-frT^^jar^ntfJSre**^©^. icaotuv' 
jSrni#v^ 0 

if-TCTC $&)&* U ^^'i:±i''5(7)t*5o v*|9a*eJ:oT**>S©tt 
&© 2 *TS)5o 

1) GOSUB "SOUND" £/P— 7© 4 1 £{■*>&< T«fc^ (&*£ft;teR#£!|K:&S fc, g 
KlWCGOSUB LtLia)o 

2) f ^KSo/;60h-7O^l0;l/-f Tfe <£</>„ 

*A,*?*A/£ ! Ig/ifi rW*tU©^~A*^BSCf^SJ /iUT'^A/TL £ -5 0T(ift 

Vi*io ! fcvO £ fcT'jX h 5 - 5 , 5-6 t3b 5„ 'J X I 5-5 ii m 5-4 O/u ^7 A 

*^©3Jt«WHC«Sifti{.fcJ:5 *fe©'P2bS*»6*W0ttb«rv» o 



U ^ I 5-5 



.Z8C 











.PHASE 


0E000H 


E000 


F5 




PLAY: 


PUSH 


AF 


E00 1 


C5 






PUSH 


BC 


E002 


D5 






PUSH 


DE 


E003 


E5 






PUSH 


HL 


E004 


2A 


E05 1 


PLAY0 : 


LD 


HL, (WC) 


E007 


7C 






LD 


A , H 


E008 


B5 






OR 


L 


E009 


28 


06 




JR 


Z, NOWAIT 


E00B 


2B 






DEC 


HL 


E00C 


22 


E05 1 




LD 


(WC) ,HL 


E00F 


18 


39 




JR 


PEND 


E011 


2A 


E057 


NOWAIT: 


LD 


HL, (MPE) 


E014 


ED 


5B E053 




LD 


DE, (MP) 


E018 


B7 






OR 


A 


E019 


ED 


52 




SBC 


HL , DE ; MPE>MP? 


E01B 


38 


02 




JR 


C , OVER 


E01D 


20 


04 




JR 


NZ, FETCH 


E01F 


ED 


5B E055 


OVER: 


LD 


DE, (MPS) 


E023 


EB 




FETCH: 


EX 


DE , HL ; HL=MP 


E024 


7E 






LD 


A, (HL) 


E025 


23 






INC 


HL 


E026 


5E 






LD 


E, (HL) 


E027 


23 






INC 


HL 


E028 


22 


E053 




LD 


( MP ) , HL ; STORE MP 


E02B 


FE 


10 


* 


CP 


16 



% 5 m . CTC 109 



E02D 


30 0A 




JR 


NC, SETWT ;SET WAIT COUNTER 


E02F 


01 1C00 


* 


LD 


BC , 1C00H 


E032 


ED 79 




OUT 


( C ) , A ; SET REG. NOMBER 


E034 


05 




DEC 


B 


E035 


ED 59 




OUT 


(C) ,E 


E037 


18 D8 




JR 


NOWAIT 


E039 


FE 10 


SETWT : 


CP 


16 


E03B 


20 04 • 




JR 


NZ , SETWTl ; BIG WAIT 


E03D 


16 00 




LD 


D, 0 


E03F 


18 03 




JR 


SETWT2 


E04 1 


53 


SETWT1 : 


LD 


D,E 


E042 


IE 00 




LD 


E , 0 


E044 


ED 53 E05 1 


SETWT 2 : 


LD 


(WC) ,DE 


E048 


18 BA 




JR 


PLAY0 


E04 A 


El 


PEND: 


POP 


HL 


E04B 


D1 




POP - 


DE 


E04C 


Cl 




POP 


BC 


E04D 


FI 




POP 


AF 


E04E 


FB 




El 




E04F 


ED 4D 




RETI 




E05 1 


0000 


WC: 


DW 


0000H ; WAIT COUNTER 


E053 


0000 


MP: 


DW 


0000H ; MUSIC DATA POINTER 


E05 5 


0000 


MPS: 


DW 


0000H ; MUSIC START 


E057 


0000 


MPE: 


DW 


0000H ; MUSIC END 








END 





V * h 5-6 BGM (turbo BASIC -CfcMM'fcl') 



100 ’100 - 130 VXF 5-1 ) 100 - 130 b *) ? V7YY =Evf ?/l. 

140 ’ 

150 CLEAR &HE000 



160 


MEM$ ( &HE000 , 16 ) =HEXCHR$ ( "F5 


C5 


D5 


E5 


2A 


51 


E0 


7C 


B5 


28 


06 


2B 


22 


51 


E0 


18") 


170 


MEM$ ( &HE0 10, 16) =HEXCHR$ ( " 39 


2A 


57 


E0 


ED 


5B 


53 


E0 


B7 


ED 


52 


38 


02 


20 


04 


ED” ) 


180 


MEM$ ( &HE020 , 1 6 ) =HEXCHR$ ( "5B 


55 


E0 


EB 


7E 


23 


5E 


23 


22 


53 


E0 


FE 


10 


30 


0A 


01") 


190 


MEM$ ( &HE030 , 16 ) =HEXCHR$ ( "00 


1C 


ED 


79 


05 


ED 


59 


18 


D8 


FE 


10 


20 


04 


16 


00 


18") 


200 


MEM$ ( &HE040 , 1 6 ) =HEXCHR$ ( "03 


53 


IE 


00 


ED 


53 


51 


E0 


18 


BA 


El 


D1 


Cl 


FI 


FB 


ED” ) 


210 


MEM$ ( &HE050 ,16) =HEXCHR$ ( " 4D 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00" ) 



220 » 

230 *230 - 330 -A, VX15-4 J 100 - 200 ** b^> =7 RENUMBER '>f tvr lb. 
340 ' 

350 MEM$ ( &HE05 1 , 8 ) =HEXCHR$ ( " 00 00 00 D0 00 D0 C0 D0”) 

360 MEM$ ( &H5E , 2 ) =HEXCHR$("00 E0") 

370 ’ 

380 SOUND 7 ,&B1 11000 : SOUND 8,0 

390 OUT &H 1 FA0 , &B 111 :OUT &H1FA0 , 100 : ’ f- *>**0 SET 

400 OUT &H1FA0 , &.H58 : » 7'J35V SET 

410 OUT &H1FA3 , &B1 1000111 :OUT &H1FA3.25 :’**>**3 SET 



JSliST&S 

JJLh*to»T*-5o CTC CD I/O 7 Fl/XJ lFA8„~lFAB„Cf*e» 

LX7>ti\f, CZ-8BM2 XI TbM< IZTT&Zo -tft> t fe U fc 

V> 0 ttz, >J A b 5-6?ttPSG©f- + >*A/B, UlO^cD'JX 

h 10-3 BGM 

■tZ>(DXhZ> o yx h 10-3 ©120 ffefcS r*B 000111 J 

£ r&HOOlllOj C-r*U;?J:Vi*fW-*©rtfo 8->, BhCliyi 

XC*S„ tr— lb#>-Si:S»i, TOUT &H1FA3, 3J-C£>§ 0 

ht CTC©jHv^kLTtt^pfl*^gSW ! 5ffc©*C*S*i, JiLt© £ t £S8?T§ *U£ 
M^fFtiT L & 5 tih *> o 
no SUfeKdiSXl 



&3o\ $>£ VW]>b turbo BASIC Ti£*> i. t> i. ^<D% t. 

CTC©«i5a**ffi5¥***«o **ut, f8ie h e&s§!I9&&^ 
v>5¥?i«, «H5a*Mlitt TEMPO iT*JETS So 

PLAYX**ffi<.*<*oTLS-5, *£©fcj£**2b5**, ©*** 

So HWil2S (*9“>f X-S>'tf-K) C«*TJbSo 
CTC0^t^«BS?)#vrViS*s, S-OjSffl^jaiCv^OT^So ^LT, CTC/clfCat* 
•5 UT^i#* ©■?&£<, 



IR5^ CTC in 

































































' 









































. 






























mem 

SIOTWvlTfcS 



Z(DM'C%L9 JzhfZ Z80 SIO (Serial Input/Output) fi, '> V T t b 
•€■ bf, s ©5 finite S> t^ilT^*^c7)Ti>Eo bfttefc 9 *>&&£ 
-f, '> y 7;Hif§tv>-5 fco^ltftli^-c&s s t cfcfef So Hitc^v n y-ciIfB£ 
f S *§£• K tt , BASIC <D OPEN %<D Jiff > Tfgfet Z ti tt <DWtk& &tlH&rtr 
(Dtitf, Sl0MZ*MA±(Dmilfo i &Q&&tlX^Z(D-C&2> o Z5^5frVT, JZ&M 
f£&b SI0©«v»**iW*»<ift9§t-4fc^Kf4v^*^ o fe bfc SIO©^tg£^ob D 
i:»9fcv»*6.tf, ##30©: 4 ^WtK>~C^tz1i^-ft^ 0 
$T, Htt Z80 SIO ti^Tt=o0/<-y3 v (**yr^f y) a**s© 

t£ 0 +%*>%, 

SIO/O, SIO/1, SIO/ 2 

Tab SoXlCi&bftT^ £©&-?-© 5 ^©SIO/ 0 Tab So £ttSHo©&©©iii,>&,f--r 
y^/PBCSfrfSjMRT, (JE©$C) fcR9a**S©T*'3*o-CV»S© 

Tabs (XI Tti^X^A-B (iv/xciit Sfofr/i^S, Hoft^JEftvOo 
SIOKttf-yy^/PA, BC-OOff^^W'^O, XI TNi?-* y*;PA*SRS- 
232C©iIfHiiT, f tlT, £1*tt 

s©*T7^y^B=v?x£&K:- ! ?>-3/:^T, Rof 7 $-?f t y A olflia# 

^fcHtrofe 9TabS 0 



T**7XT&3 

XI © v ? A tt RS-232C O^'JT^v/X T, r - 7 © v ? X -<• XI O— ^®=fT 
Tab So Sx-7te, 

© tf-y- Mi 4800 bps 

© □ >bn- < Mt*«r£*TW , » (H-L) ir-nSo- C<S 
© x- * (i-ffl*'* 1 0 tf y b fl|j£T, 

X 7 - h t* y h = 1 t ( y b 

X — ^ t' 7 1 =8 t'7 I 

X h y y t' y h = 1 t' 7 h 
© 1 0 t* y h A"' 3 *1 

fc&oTI^So ©Tt^§&9 XX- b t'y b fcA>X 8 y 7° h* y 8 fcA^&SfcBT § Stl 

*5y y 7;Htf§©-5 o t — bv>h SSTabSo t*-5 v>-5 S/nty^tn5 t, Hi 

v>, 7* s tT§ £ 7 J: — J, Ri^* SftTr — 7 D T7J 

&©*f 0 -^©SfSTte, X-7A* 7 tfy b/?ofc 9 , x b y /h’7 b ** 1.5 fc b < H 2 

114 EU&KdJSXl 



0 6-1 



1 /<-r h 



7.7- — 9 7. — 



Do 


x-r yTioftm 


1 TON, OTOFF 


D, 


X -f y 5-2 <nt)ite 


d 2 


— 


d 3 


— 


d 4 


X<n*-/<- 7P-t*-y Kl28U-h <Ot$) 


d 5 


X<r>7>?-7 a-g-y h( — 129JUT Olt #) 


d 6 


Yffl4-/\-7D-t - 7 H128UUl<7>£#) 


d 7 


Y <r>T>?-7 n-a-y K-129UT <r>t #) 



2 /U h g 


X^fS] <71^14* 




— 128 — F 127 










3 /U h g 






— 128 — F 127 



D,mt‘7 h X'$> 5> 
tt*ULfcl'<-r 8<7>x-$'A < X4'‘6li, 
D,=0->#li*=X^0 
D 7 = l— > ^M m = X — 256<0 



t*'X h (S$An.5fgR<tt2^fflfi) ©ifcfcfcao £T, 

-f l'©f-^fet< 6-1 T&So 

S-fXr-^XCOV^Tt^BJ-rSo D 0 , D, ®X^f 'yj-te&mtifrZ £^tz55 a 2 O 
h^'T D«~D 7 ^wW7y/-7D-t*y t'T&So 
2bA^fctv»5 £ ht, fcfc*.ffD 4 = lifcofc&fc, 

»t% x*iRifci28jjuaKiv»%^ofc„ ***£■ 2 #s ©?*-*© rx^(p]©^»»j J4* 
TC*e»*V»J:J tlotl'Sbl^t^So JstTISMIU 
#CC X/Y ^[r]©I£Rj*T'£> & *5, -#**& £ t fi, M0r-^ *2So fc 1: § * 6 ©ffl 
*f8§S£*£fcV>3 3 tTJbSo turbo BASIC (D MOUSE ( 7 ) , MOUSE( 8 ) S fe © 

fi.fr h, BASIC (D^— z-7 )V < tl 0 

TH ') 7. h 6-1 Kiot, I#(I5C 

BASIC X°$>& 0 /frf§©&£A£fctf r4800bps-C30 tfy h < Ztvtzfrh, 30 = 

4800=0. 00625 BASIC TTh! Cn"5©?J b,%5~V$>6 5 a LfrLSHif:^ 

ikC, Z80 SI0»4^y7r*Ho^ (C©^*: fc 3'M h£) SotV^®/; 0 
6fc*A/fcCl3>o < D^oT*), o * 

^3 A/o 



0*1- 6-1 vyx(73®l'^, U<ttA. i7 77(i3tt ; f 



100 GOSUB"SETCTC&SIO" 

110 ’ 

120 OUT &H1F93 , 5 :OUT &H1F93,0 :’3Vln-Jl i />3* 7 5 H - Zfr 
130 PAUSE 0 r’fa-yh 7" *r 77 (* 7 ; >) 

140 OUT &H1F93 , 5 : OUT &H1F93.2 : * REQUEST ( 3 > h D-JP *>3* 7=RTS ^ ) 

150 FOR 1=1 TO 3 

160 OUT &H1F93 , 0 : BBB=INP( &H1F93 ) AND 1 : * BUFF - f* -9 U* 7)VU ? 

170 IF BBB=0 THEN 160 
180 DDD=INP ( &H1F92 ) 

190 PRINT DDD 
200 NEXT 



*6^ SIO 115 



210 PRINT STRINGS ( 10, " = " ) 
220 GOTO 120 
230 ’ 

240 LABEL" SETCTC&SIO" 

250 OUT &H1FA2 , &B1000 1 1 1 : 
260 OUT &H1FA2 , 26 : 

270 * 

280 RESTORE "SIODATA" 

290 FORI= 1T01 5 

300 READ D : OUT&H1F9 3 , D 

310 NEXT 

320 RETURN 

330 ’ 

340 LABEL " SIODATA" 

350 DATA &B000 1 1000 

360 DATA 1,0 

370 DATA 2 , 00H 

380 DATA 4 , &B01000100 

390 DATA 5 , 00H 

400 DATA 6 , 00H 

410 DATA 7 , 00H 

420 DATA 3 , &B1 1000001 



* CTC 3 SET 

1 TIME CONSTANT 



’RESET 
’ WR0=00H 

’ WR2=00H=INT. VECTOR (turbo J A* 74 ) 

* WR4 = 44H= ’ A *16’ & ’ fc* = l 



’ WR5=00H 
’ WR6=00H 
’ WR7=00H 

’ WR3 = C1H = * DATA=8t'“ v Y ' & JV l'* -A* 









V X b 6-1&L i 240 fr'x GOSUB ZtUt CTC t SIO © 

o £ -f fi 250~260 ffT SIO CTC 

of -t- 2 £, r* Ty's?*:— An 7 Hi 26JCT -So SftC J: t>tf 

• >*;P2 (i 2MHz ©X n y X&3K3.S frit rtf 

2 x 10 6 (H Z ) x 26=13x10 6 * >) 

SlOti, 16 fc C< tt 64^CT:j-C-l/- hCfS© 

T£>6 0 16 frMttUS, 

13 x ir 6 X 16 = 208 x 10" 6 (#) 

208X10^ = 4807 • 69 ‘ ' - ^ 4800 

t Vi -5 t o?> 5 4800 #Oi 280 3 

**, itTSIO*K5£UTV»5o 

• + -r 7 X XlSli 8 t* 7 l 

• X n >y X hi CTC h ©'OPX % 16 ftM 

• X h 7 7 °tf 7 Mil 

i RETURN 0 tzWite, y/P— f-VC&So 120~140fr"Cfi3 X h a 

— V I- a— /Pff-iHif- + B © RTS 
&©-e&-S 0 RTS Mi [Request To SendJ T, Wt&hZ rS!oT§ X% X -tz^A T%> 
S 0 H -*• L C&S t, K 3'M Y(Dr — X Z'M-o'C < So 130 fr 

PAUSE Sttflb S *i, ZtU£Mfr<D F>IItJ.5o BASIC Tfc J: </>©*£**, 

HT^S *§-£■«-£ 5 fi^*>*V> 0 £>&@S©B#Fsfl l~HJ [XJ CLSW 



ii 6 mmzthixi 



150~200 ?t© FOR~NEXT 3CT 3 Y © r- ? £ SIO ©/n* v7 rfr h Sc^-tB L T 
160, 170fiW'*x 7 r Cf-^i5Ao tv>|, ^J©fl$;u-f y, 180 fr 
&7~?(Dm.frBiL~e$>Z o 7°nX*xA£ RUN tS fc 3 /\*-f h©f-^§*SLt^ 
<o tffy&FPLKOtz t$k¥&mfc>6T$>65o 

U Vi d ttjiliis, iSOcta^ti rv^x J; D fe h y y X xtf— ;v*JVHi©^fJ, r^/vK 
+ . X-f ! J, rt^A/TVo X yfv\**;v£;£;K,Tfc 6>ot.^gS-t? 

uj ^ft‘tB-5 AjSt^So * J £> 0 Sti-C, hv^b^-CfA 

(ivXX^&tD-C&So 

^ <r T 'J X M-3 , 6-4 1 6-3CV- 

X y X Hi 'J X h 6-2 tfroT^So y X h 6-3 ttf-xy^nt CRCtt§©'XVx°y 
X ht*&S 0 A^JCFg b T A © X* X X° 1 X hf-i-y^ 'f'a'fy A$#lo; fc 0 

0 * 1 6-2 t> L < liX'Jv K>X 









. Z80 












.PHASE 


0EA00H 




1F90 




ZSIO 


EQU 


1F90H 




1 FA0 




ZCTC 


EQU 


1FA0H 




0018 




PSIZE 


EQU 


14+8+2 


•.PARAMETER SIZE 


EA00 


EB 


MOUSE: 


: EX 


DE , HL 




EA0 1 


5E 




LD 


E, (HL) 




EA02 


23 




INC 


HL 




EA03 


56 




LD 


D, (HL) 




EA04 


EB 




EX 


DE , HL 




EA05 


22 EB29 


* 


LD 


( RETVA ) , HL 








w 

> 

< 

CO 


RETURN VALUE AREA 




EA08 


11 EB3 1 




LD 


DE , XI 




EA0B 


01 0018 




LD 


BC, PSIZE 




EA0E 


ED B0 




LDIR 




;COPY 


EA 1 0 


3E 50 


’ 


LD 


A, 50H 




EA12 


32 EC6 1 




LD 


( PATCH1+ 1 ) , A 




EA1 5 


3E 29 




LD 


A, 29H 


; ADD HL , HL 


EA1 7 


32 EC7A 




LD 


( PATCH2 ) , A 


*, SET WIDTH 80 


EA1 A 


3E 28 




LD 


A, 28H 


; 28H= JR Z, 


EA1C 


32 EAAC 




LD 


( PATCH3 ) , A 




EA1F 


21 ECA6 




LD 


HL , ARW8 


;W 80 CURSOR 


EA22 


22 EB2F 




LD 


( DFMC ) , HL 


; DEFAULT CURSOR 


EA25 


3A EB48 




LD 


A, (MODE) 




EA28 


0F 




RRCA 




; CHECK BIT0 


EA29 


38 17 




JR 


C.WI80 




EA2B 


47 


* 


LD 


B , A 




EA2C 


3E 28 




LD 


A, 28H 


; DATA 


EA2E 


32 EC6 1 




LD 


( PATCH 1 + 1 ) , A 




EA31 


3E 00 




LD 


A , 000H 


; NOP 


EA33 


32 EC7A 




LD 


( PATCH2 ) , A 




EA36 


3E 18 




LD 


A, 18H 


; 1 8H= JR 


EA38 


32 EAAC 




LD 


( PATCH3 ) , A 




EA3B 


21 EDD4 




LD 


HL, ARW4 




EA3E 


22 EB2F 




LD 


(DFMC) , HL 




EA4 1 


78 




LD 


A , B 




EA4 2 


0F 


W 1 8 0 : 


RRCA 






EA4 3 


30 04 




JR 


NC , MSGO 




EA4 5 


CD EBD9 




CALL 


PSET 


; JUST GRAPHIC 



*6$ SIO /77 



EA48 


C9 




RET 






EA49 


2A EB3 1 


MSGO : 


LD 


HL , ( XI ) ; 


COPY POSITION 


EA4C 


22 EB2B 




LD 


( X0 ) , HL 




EA4F 


2A EB33 




LD 


HL, (Yl) 




EA52 


22 EB2D 




LD 


( Y0 ) , HL 




EA55 


CD EADC 




CALL 


CIN ; 


CHECK IN 


EA58 


E6 03 




AND 


3 




EA5A 


28 05 




JR 


Z, BEGIN 




EA5C 


3E 02 


* 


LD 


A, 2 




EA5E 


C3 EB16 




JP 


ERR0 




EA6 1 


CD EBA5 


BEGIN: 


CALL 


SETMS 


•.MOUSE INIT 


EA64 


CD EBD9 




CALL 


PSET 


; SHOW CURSOR 


EA67 


FD 21 EB39 


’ 


LD 


IY , MSDATA 




EA6B 


CD EB49 




CALL 


MSIN 




EA6E 


3A EB39 


BEGIN0 : 


LD 


A, (MSDATA) 




EA7 1 


F5 




PUSH 


AF 




EA7 2 


FD 21 EB39 




LD 


IY, MSDATA 


; IY=POINTER 


EA7 6 


CD EB49 




CALL 


MSIN 


'.READ MOUSE 


EA7 9 


FI 




POP 


AF 




EA7A 


B7 




OR 


A 




EA7B 


20 11 




JR 


NZ , BUT2 




EA7D 


21 EB35 


’ 


LD 


HL , BMASK 


; CONDITION 


EA80 


3A EB39 




LD 


A, (MSDATA) 


; GET STAT 


EA83 


E6 03 




AND 


3 




EA85 


06 04 




LD 


B , 4 




EA87 


BE 


BUT0 : 


CP 


(HL) 


; CHECK BUTTON 


EA88 


23 




INC 


HL 




EA89 


CA EBU 




JP 


Z , BUTTON 


; BUTTON HIT 


EA8C 


10 F9 


BUT1 : 


DJNZ 


BUT0 




EA8E 


21 EB3A 


BUT2 : 


LD 


HL , MSDATA+ 1 




EA9 1 


7E 




LD 


A, (HL) 




EA92 


23 




INC 


HL 




EA93 


B6 




OR 


(HL) 




EA94 


28 D8 




JR 


Z , BEGIN0 


; X=Y=0 THEN NO-O 


EA96 


3 A EB3A 


*» 


LD 


A, ( MSDATA+ 1 ) 




EA99 


CD EB0A 




CALL 


XSIGN 




EA9C 


2A EB3 1 




LD 


HL, (XI ) 




EA9F 


19 




ADD 


HL , DE 




EAA0 


22 EB2B 




LD 


( X0 ) , HL 




EAA3 


3A EB3B 


9 


LD 


A, ( MSDATA+2 ) 




EAA6 


CD EB0A 




CALL 


XSIGN 




EAA9 


3E 01 




LD 


A, 1 




EAAB 


BB 




CP 


E 




EAAC 


28 04 


PATCH3 : 


JR 


z , OKI ; 1 -> 1 


(-1 -> -1) 






;OR 


JR 


OKI (WIDTH 40) 


EAAE 


CB 2A 




SRA 


D 




EAB0 


CB IB 




RR 


E ; DE=DE/2 


with sign 


EAB2 


2A EB33 


OKI : 


LD 


HL, (Yl) 




EAB5 


19 




ADD 


HL , DE 




EAB6 


22 EB2D 




LD 


( Y0 ) , HL 








; CHRCK 


IN? 






EAB9 


CD EADC 




CALL 


CIN 




EABC 


FE 03 




CP 


3 




EABE 


28 AE 




JR 


Z , BEGIN0 


;X AND Y OUT 


EAC0 


F5 


1 


PUSH 


AF 




EAC1 


CD EBD9 




CALL 


PSET 


; ERASE CURSOR 


EAC4 


FI 




POP 


AF 




EAC5 


0F 


1 


RRCA 






EAC6 

v 


38 06 




JR 


C, YCHECK 


;X=OB THEN CHECK 


I 

EAC8 


2A EB2B 




LD 


HL, (X0) 


; COPY POSITION 


EACB 


22 EB31 




LD 


(XI ) , HL 




EACE 


0F 


YCHECK : 


RRCA 






EACF 


38 06 




JR 


C , SHOWC 




EAD1 


2A EB2D 




LD 


HL, (Y0) 





118 tsBctha xi 



EAD4 


22 EB33 




LD 


(Yl) ,HL 




EAD7 


CD EBD9 


SHOWC : 


CALL 


PSET 


;SHOW NEW CURSOR 


EADA 


18 92 




JR 


BEGIN0 


; AGAIN 


EADC 


AF 


CIN: 


XOR 


A 




EADD 


ED 5B EB44 




LD 


DE , ( YU ) 




EAE1 


2A EB2D 




LD 


HL, (Y0) 




EAE4 


B7 




OR 


A 




EAE5 


ED 52 




SBC 


HL , DE 




EAE7 


38 09 




JR 


C , XIN 




EAE9 


ED 5B EB2D 


* 


LD 


DE, (Y0) 




EAED 


2A EB46 




LD 


HL, (YD) 




EAF0 


ED 52 




SBC 


HL , DE 




EAF2 


17 


XIN: 


RLA 






EAF3 


ED 5B EB40 




LD 


DE, (XL) 




EAF7 


2A EB2B 




LD 


HL, (X0) 




EAFA 


B7 




OR 


A 




EAFB 


ED 52 




SBC 


HL , DE 




EAFD 


38 09 




JR 


C , XIN0 




EAFF 


ED 5B EB2B 


* 


LD 


DE, (X0) 




EB03 


2A EB42 




LD 


HL, (XR) 




EB06 


ED 52 




SBC 


HL , DE 




EB08 


17 


XIN0 : 


RLA 






EB09 


C9 




RET 






EB0A 


5F 


XSIGN : 


LD 


E , A 




EB0B 


16 00 




LD 


D , 0 




EB0D 


07 




RLCA 






EB0E 


D0 




RET 


NC 




EB0F 


15 




DEC 


D 


; D=FFH or 00H 


EB 1 0 


C9 




RET 






EB11 


AF 


BUTTON : 


XOR 


A 




EB12 


18 02 




JR 


ERR0 




EB1 4 


3E 01 


ERR: 


LD 


A, 1 




EB16 


32 EB3C 


ERR0 : 


LD 


( ECODE ) , i 




EB19 


CD EBD9 




CALL 


PSET 


; ERASE CURSOR 


EB1C 


ED 5B EB29 




LD 


DE, (RETVA) 


EB20 


21 EB31 




LD 


HL , X 1 




EB23 


01 0018 




LD 


BC , PSIZE 




EB26 


ED B0 




LDIR 






EB28 


C9 




RET 






EB29 




RETVA : 


DS 


2 


RETURN VALUE ADD. 


EB2B 




X0 : 


DS 


2 


BUFF. 


EB2D 




Y0 : 


DS 


2 


BUFF. 


EB2F 




DFMC : 


DS 


2 


DEFAULT CURSOR 


EB3 1 




XI : 


DS 


2 


X POSITION 


EB33 




Y1 : 


DS 


2 


Y POSITION 


EB35 




BMASK : 


DS 


4 


BUTTON CONDITION 


EB39 




MSDATA: 


DS 


3 


MOUSE DATA 


EB3C 




ECODE : 


DS 


1 


ERROR CODE 


EB3D 




MC: 


DS 


2 


MOUSE CURSOR PAT ADD 


EB3F 




MCCOL : 


DS 


1 


MOUSE CURSOR COLOR 


EB40 




XL: 


DS 


2 


X UNDER LIMIT 


EB4 2 




XR: 


DS 


2 


X UPPER LIMIT 


EB44 




YU: 


DS 


2 


Y UNDER LIMIT 


EB46 




YD: 


DS 


2 


Y UPPER LIMIT 


EB48 




MODE : 


DS 


1 


WIDTH AND WRITE PAT 


EB49 


01 1F93 


MSIN : 


LD 


BC.ZSIO+3 


EB4C 


3E 05 




LD 


A, 5 • ; 


- > WR5 


EB4E 


ED 79 




OUT 


( C ) , A ; 


WR5 SELECT 


EB50 


AF 




XOR 


A 




EB51 


ED 79 




OUT 


(C),A ; 


RTS High 


EB53 


16 80 




LD 


D , 80H 




EB55 


15 


MSINW : 


DEC 


D ; 


WAIT 


EB56 


20 FD 




JR 


NZ, MSINW 




EB58 


3E 05 


* 


LD 


A, 5 




EB5A 


ED 79 




OUT 


( C ) , A ; 


WR5 SELECT 


EB5C 


3E 02 




LD 


A, 2 




EB5E 


ED 79 




OUT 


( C ) , A 


RTS Low 



w,em sio 119 



EB60 


IE 


05 




LD 


E , 5 ; RETRY COUNT 


EB62 


FD 


22 EB80 




LD 


(IYBUFF) ,IY 


EB66 


16 


03- 


MSRTRY : 


LD 


D , 3 ; COUNT 


EB68 


CD 


EB82 


MSINL : 


CALL 


MSGET 


EB6B 


38 


09 




JR 


C , FAIL 


EB6D 


FD 


77 00 




LD 


( IY+0 ) , A 


EB7 0 


FD 


23 




INC 


IY 


EB7 2 


15 






DEC 


D 


EB7 3 


20 


F3 




JR 


NZ, MSINL 


EB7 5 


C9 






RET 




EB7 6 


FD 


2A EB80 


FAIL: 


LD 


IY, ( IYBUFF) 


EB7A 


ID 






DEC 


E 


EB7B 


20 


E9 




JR 


NZ, MSRTRY 


EB7D 


C3 


EB 1 4 


’ 


JP 


ERR 


EB80 






IYBUFF: 


DS 


2 


EB82 


01 


1F93 


MSGET: 


LD 


BC , ZSIO+3 


EB85 


21 


0000 




LD 


HL , 0000H 


EB88 


2B 




MSGET0 : 


DEC 


HL 


EB89 


7C 






LD 


A , H 


EB8A 


B5 






OR 


L 


EB8B 


28 


0D 




JR 


Z , LATE 


EB8D 


AF 




* 


XOR 


A 


EB8E 


ED 


79 




OUT 


( C ) , A ;RR0 SELECT 


EB90 


ED 


78 




IN 


A, (C) 


EB92 


IF 






RRA 


; Bit0 ON? 


EB93 


30 


F3 




JR 


NC , MSGET0 


EB95 


0B 




* 


DEC 


BC ; BC= 1F92H 


EB96 


ED 


78 




IN 


A, (C) ; GET DATA 


EB98 


B7 






OR 


A ; RESET CARRY FLAG 


EB99 


C9 






RET 




EB9A 


D5 




LATE: 


PUSH 


DE 


EB9B 


CD 


EBA5 




CALL 


SETMS 


EB9E 


D1 






POP 


DE 








;HL=0000H 




EB9F 


2B 




LATE0 : 


DEC 


HL 


EBA0 


7C 






LD 


A , H 


EBA1 


B5 






OR 


L 


EBA2 


20 


FB 




JR 


NZ , LATE0 


EBA4 


C9 






RET 




EBA5 


F3 




SETMS : 


’di ’ ’ 





EBA6 


CD 


EBAE 




CALL 


SETCTC 


EBA9 


CD 


EBBA 




CALL 


SETSIO 


EBAC 


FB 






El 


; INITIALIZE 


EBAD 


C9 






RET 




EBAE 


01 


1FA2 


SETCTC : 


LD 


BC , ZCTC+2 ; CTC2=CHANNEL B 


EBB1 


3E 


47 




LD 


A,01000111B ; MODE 


EBB3 


ED 


79 




OUT 


(C) , A 


EBB5 


3E 


1A 




LD 


A, 26 ; TIME CONSTANT 


EBB7 


ED 


79 




OUT 


(C) , A 


EBB9 


C9 






RET 




EBBA 


01 


1F93 


SETSIO : 


LD 


BC, ZSIO+3 ; CHANNEL B 


EBBD 


21 


EBCA 




LD 


HL, SIODAT 


EBC0 


16 


0F 




LD 


D , 1 5 ; COUNT 


EBC2 


7E 




SIOL : 


LD 


A, (HL) 


EBC3 


23 






INC 


HL 


EBC4 


ED 


79 




OUT 


(C) , A 


EBC6 


15 






DEC 


D 


EBC7 


20 


F9 




JR 


NZ , SIOL 


EBC9 


C9 






RET 




EBCA 


18 




SIODAT : 


DB 


00011000B 


EBCB 


01 


00 




DB 


1 ,00H 


EBCD 


02 


70 




DB 


2 , 7 0H 


EBCF 


04 


44 




DB 


4 , 01000100B 



no 



EBD1 


05 00 




DB 


5 , 00H 


EBD3 


06 00 




DB 


6 , 00H 


EBD5 


07 00 




DB 


7 , 00H 


EBD7 


03 Cl 




DB 


3, 11000001B 






;HL=Y1 


, BC=X1 , 


DE=addr 


EBD9 


ED 4B EB3 1 


PSET: 


LD 


BC, (XI ) 


EBDD 


2A EB33 




LD 


HL, (Yl) 


EBE0 


ED 5B EB3D 




LD 


DE, (MC) 


EBE4 


7A 




LD 


A , D 


EBE5 


B3 




OR 


E ; DE=0000 ? 


EBE6 


20 04 




JR 


NZ , PSET1 


EBE8 


ED 5B EB2F 




LD 


DE.(DFMC) ; DEFAULT CURSOR 


EBEC 


3A EB3F 


PSET1 : 


LD 


A, (MCCOL) 


EBEF 


CD EBF8 




CALL 


PAT 


EBF2 


C9 




RET 




EBF3 




PATD : 


DS 


2 


EBF5 




PATB : 


DS 


2 


EBF7 




COLOR : 


DS 


1 






;HL=Y1 , 


, BC=X1 , 


DE=PATTERN ADD. 


EBF8 


ED 53 EBF3 


PAT: 


LD 


( PATD ) , DE ; SRORE PAT. ADD. 


EBFC 


0F 




RRCA 




EBFD 


0F 




RRCA 




EBFE 


32 EBF7 




LD 


(COLOR), A ; STORE COLOR 


EC0 1 


CD EC6E 


* 


CALL 


XYADDR 


EC04 


22 EBF5 




LD 


( PATB ) , HL ; STORE BEGIN ADD 






; discard MASK 


EC07 


6A 




LD 


L , D 


EC08 


26 00 




LD 


H , 0 


EC0A 


29 




ADD 


HL , HL 


EC0B 


ED 5B EBF3 




LD 


DE , ( PATD ) 


EC0F 


19 




ADD 


HL , DE 


EC 10 


11 EBF3 




LD 


DE , PATD 


EC1 3 


01 0002 




LD 


BC , 2 


EC 16 


ED B0 




LDIR 




EC 18 


2A EBF3 


PATGO : 


LD 


HL, (PATD) 


EC1B 


ED 4B EBF5 




LD 


BC, (PATB) 


EC IF 


78 




LD 


A , B 


EC20 


E6 C0 




AND 


0C0H 


EC22 


5F 




LD 


E , A ; E=40H , 80H or C0H 


EC23 


57 




LD 


D , A 


EC 2 4 


E2 EC29 




JP 


PO, PATGOl ; D=C0H ? 


EC27 


16 01 




LD 


D , 0 1H 


EC29 


3A EBF7 


PATGOl : 


LD 


A , ( COLOR ) 


EC2C 


A2 




AND 


D ; D=40H , 80H or 01H 


EC2D 


C4 EC3D 




CALL 


NZ , PATW 


EC30 


2A EBF5 


* 


LD 


HL , ( PATB ) 


EC33 


01 4000 




LD 


BC, 4000H 


EC36 


09 




ADD 


HL , BC 


EC37 


D8 




RET 


C 


EC38 


22 EBF5 




LD 


(PATB) , HL 


EC3B 


18 DB 




JR 


PATGO 


EC3D 


7E 


PATW : 


LD 


A, (HL) 


EC3E 


08 




EX 


AF , AF ’ ; A ’ HOLDS XCOUNT 


EC3F 


23 




INC 


HL 


EC40 


7E 




LD 


A, (HL) 


EC4 1 


23 




INC 


HL ;HL=PAT-ADDR 


EC42 


D9 




EXX 




EC43 


57 




LD 


D , A ; D* =YCOUNT 


EC44 


D9 




EXX 




EC45 


C5 


YLOPWB : 


PUSH 


BC ; SAVE GPR-ADDR 


EC46 


08 




EX 


AF , AF * 


EC47 


57 




LD 


D , A ;D=A’=XCOUNT 


EC48 


08 




EX 


AF , AF ’ ; GET XCOUNT 


EC49 


ED 78 


XLOPWB : 


IN 


A, (C) 


EC4B 


AE 




XOR 


(HL) 


EC4C 


ED 79 




OUT 


(C) , A 


EC4E 


23 




INC 


HL 


EC4F 


03 


5 


INC 


BC ;OUT 1 BYTE 



f&6^ SIO 121 



EC50 


15 




DEC 


D 




EC5 1 


C2 EC49 


; DOWN 1 


JP 

LINE 


NZ.XLOPWS ; SAME LINE 


GO ON 


EC54 


Cl 


* 


POP 


BC ; BACK ADDR 




EC55 


E5 




PUSH 


HL ; SAVE P-ADDR 




EC56 


3E 08 


* 


LD 


A.08H ; VECTOR DOWN 




EC58 


80 




ADD 


A , B ; BC=ADDR , ADD HIGH 


BYTE 


EC59 


47 




LD 


B, A 




EC5A 


E6 C0 




AND 


0C0H ;MASK 11000000 




EC5C 


BB 




CP 


E ; CHECK IN? 




EC5D 


CA EC66 




JP 


Z, DONEWB ; OK MASK 




EC60 


21 C050 


PATCH 1 : 


LD 


HL.0C050H 








;0R 


LD 


HL.0C028H (WIDTH 40) 




EC63 


09 




ADD 


HL , BC 




EC64 


44 




LD 


B.H 




EC65 


4D 




LD 


C.L 




EC66 


El 


DONEWB : 


POP 


HL 




EC67 


D9 




EXX 






EC68 


15 




DEC 


D 




EC69 


D9 




EXX 






EC6A 


C2 EC45 




JP 


NZ.YLOPWB 




EC6D 


C9 




RET 







ADDR=4 000H+ (Xl> >3 ) + ( (Y1 & 7)<<11) +(Y1>>3)*80 
ADDR=4000H+ ( BC/8 ) +((L AND 7 ) < < 1 1 ) + ( HL/8 ) *80 
HL=Y1 ,BC=X1 .BREAKS HL , A , BC , DE 
return HL=addr , A=mask , D=count 



EC6E 


7D 


XYADDR : 


LD 


A , L 


‘.SAVE L 


EC6F 


CD EC99 




CALL 


DIV8 


; HL=HL/8 


EC7 2 


54 




LD 


D.H 




EC7 3 


5D 




LD 


E.L 


; DE=HL 


EC7 4 


29 


* 


ADD 


HL , HL 




EC7 5 


29 




ADD 


HL , HL 


•80=16*5 


EC7 6 


19 




ADD 


HL , DE 


; HL=5 


EC7 7 


29 




ADD 


HL , HL 


; 10 


EC7 8 


29 




ADD 


HL , HL 


; 20 


EC7 9 


29 




ADD 


HL , HL 


; 40 


EC7A 


29 


PATCH2 : 


ADD 


HL , HL 


; 80 ; HL= ( HL/8 ) *80 






;OR 


NOP 




(WIDTH 40) 


EC7B 


E6 07 


* 


AND 


07H 


; A= ( L AND 7) 


EC7D 


87 




ADD 


A, A 




EC7E 


87 




ADD 


A, A 




EC7F 


87 




ADD 


A, A 


; A= ( ( L AND 7) <<3) 


EC80 


C6 40 


* 


ADD 


A.040H 


; ADD 4000H 


EC82 


57 




LD 


D , A 




EC83 


IE 00 




LD 


E.00H 








; DE=4000H+ ( (L 


AND 7 ) < < ( 3 + 8 ) ) 


EC85 


19 




ADD 


HL , DE 


; LAST 2 AND 1ST WERE ] 


EC86 


EB 




EX 


DE , HL 


; HDE=HL (SAVE) 


EC87 


60 


* 


LD 


H.B 




EC88 


69 




LD 


L.C 


; HL=BC 


EC89 


7D 


* 


LD 


A , L 


; FOR bit7-0 ( BC=X1 ) 


EC8A 


CD EC99 




CALL 


DIV8 


;HL=HL/8 


EC8D 


19 




ADD 


HL . DE 


; BADDR DONE 






; NOW HL 


= BEGIN 


ADDR 




EC8E 


E6 07 


* 


AND 


07H 


; CALC bit7-0 


EC90 


47 




LD 


B.A 




EC9 1 


57 




LD 


D.A 




EC92 


3E 80 




LD 


A..080H 




EC94 


C8 




RET 


Z 


; bit7 ( <-AND 07H ) 


EC95 


0F 


SFLP : 


RRCA 






EC96 


10 FD 




DJNZ 


SFLP 




EC98 


C9 




RET 







;Now Acc has mask of 1 dot, 



722 tmazfoh xi 







;HL has 


result 


( address ) , 






; D has 


mask count (0-7). 


EC99 


CB 3C 


DIV8 : 


SRL 


H 


EC9B 


CB ID 




RR 


L 


EC9D 


CB 3C 




SRL 


H 


EC9F 


CB ID 




RR 


L 


ECA1 


CB 3C 




SRL 


H 


ECA3 


CB ID 




RR 


L 


ECA5 


C9 




RET 








•DEFAULT MOUSE 


CURSOR 


ECA6 


ECB6 ECD6 


ARW8 : 


DW 


ARW80 , ARW8 1 ;BIT SHIFTED PATTERN 


ECAA 


ECF6 ED 16 




DW 


ARW82 , ARW83 


ECAE 


ED36 ED56 




DW 


ARW84 , ARW85 


ECB2 


ED80 EDAA 




DW 


ARW86 , ARW87 


ECB6 


03 0A 


ARW80 : 


DB 


3,10 


ECB8 


FF FC 00 




DB 


0FFH , 0FCH , 000H 


ECBB 


FF F0 00 




DB 


0FFH ,0F0H,000H 


ECBE 


FF C0 00 




DB 


0FFH ,0C0H,000H 


ECC1 


FF F0 00 




DB 


0FFH ,0F0H,000H 


ECC4 


FF FC 00 




DB 


0FFH , 0FCH , 000H 


ECC7 


F3 FF 00 




DB 


0F3H , 0FFH , 000H 


ECCA 


C0 FF C0 




DB 


0C0H , 0FFH , 0C0H 


ECCD 


00 3F F0 




DB 


000H,03FH,0F0H 


ECD0 


00 0F C0 




DB 


000H,00FH,0C0H 


ECD3 


00 03 00 




DB 


000H,003H,000H 


ECD6 


03 0A 


ARW81 : 


DB 


3,10 


ECD8 


7F FE 00 




DB 


07FH , 0FEH , 000H 


ECDB 


7F F8 00 




DB 


07FH,0F8H,000H 


ECDE 


7F E0 00 




DB 


07FH ,0E0H,000H 


ECE1 


7F F8 00 




DB 


07FH , 0F8H , 000H 


ECE4 


7F FE 00 




DB 


07FH , 0FEH , 000H 


ECE7 


79 FF 80 




DB 


079H , 0FFH , 080H 


ECEA 


60 7F E0 




DB 


060H , 07FH , 0E0H 


ECED 


00 IF F8 




DB 


000H,01FH,0F8H 


ECF0 


00 07 E0 




DB 


000H, 007H, 0E0H 


ECF3 


00 01 80 




DB 


000H,001H,080H 


ECF6 


03 0A 


ARW82 : 


DB 


3,10 


ECF8 


3F FF 00 




DB 


03FH , 0FFH , 000H 


ECFB 


3F FC 00 




DB 


03FH , 0FCH , 000H 


ECFE 


3F F0 00 




DB 


03FH ,0F0H,000H 


ED0 1 


3F FC 00 




DB 


03FH , 0FCH , 000H 


ED04 


3F FF 00 




DB 


03FH , 0FFH , 000H 


ED07 


3C FF C0 




DB 


03CH , 0FFH , 0C0H 


ED0A 


30 3F F0 




DB 


030H , 03FH , 0F0H 


ED0D 


00 0F FC 




DB 


000H , 00FH , 0FCH 


ED 10 


00 03 F0 




DB 


000H,003H,0F0H 


EDI 3 


00 00 C0 




DB 


000H , 000H , 0C0H 


EDI 6 


03 0A 


ARW83 : 


DB 


3,10 


ED18 


IF FF 80 




DB 


0 1FH , 0FFH , 080H 


ED1B 


IF FE 00 




DB 


0 1FH , 0FEH , 000H 


ED1E 


IF F8 00 




DB 


0 1FH ,0F8H,000H 


ED2 1 


IF FE 00 




DB 


01FH , 0FEH , 000H 


ED24 


IF FF 80 




DB 


0 1FH , 0FFH , 080H 


ED27 


IE 7F E0 




DB 


0 1EH , 07FH , 0E0H 


ED2A 


18 IF F8 




DB 


0 1 8H , 0 1FH , 0F8H 


ED2D 


00 07 FE 




DB 


000H,007H, 0FEH 


ED30 


00 01 F8 




DB 


000H , 00 1H , 0F8H 


ED33 


00 00 60 




DB 


000H , 000H , 060H 


ED36 


03 0A 


ARW84 : 


DB 


3,10 


ED38 


0F FF C0 




DB 


00FH , 0FFH , 0C0H 


ED3B 


0F FF 00 




DB 


00FH , 0FFH , 000H 


ED3E 


0F FC 00 




DB 


00FH , 0FCH , 000H 


ED4 1 


0F FF 00 




DB 


00FH , 0FFH , 000H 


ED44 


0F FF C0 




DB 


00FH , 0FFH , 0C0H 


ED47 


0F 3F F0 




DB 


00FH , 03FH , 0F0H 


ED4A 


0C 0F FC 




DB 


00CH , 00FH , 0FCH 


ED4D 


00 03 FF 




DB 


000H,003H, 0FFH 


ED50 


00 00 FC 




DB 


000H,000H, 0FCH 


ED53 


00 00 30 




DB 


000H,000H,030H 


ED56 


04 0A 


ARW85 : 


DB 


4,10 


ED58 


07 FF E0 00 




DB 


007H , 0FFH , 0E0H , 000H 


ED5C 


07 FF 80 00 




DB 


007H , 0FFH ,080H,000H 
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ED60 


07 


FE 


00 


00 




DB 


007H , 0FEH ,000H,000H 


ED64 


07 


FF 


80 


00 




DB 


007H , 0FFH ,080H,000H 


ED68 


07 


FF 


E0 


00 




DB 


007H , 0FFH , 0E0H , 000H 


ED6C 


07 


9F 


F8 


00 




DB 


007H , 09FH ,0F8H,000H 


ED7 0 


06 


07 


FE 


00 




DB 


006H,007H, 0FEH , 000H 


ED7 4 


00 


01 


FF 


80 




DB 


000H,001H, 0FFH , 080H 


ED78 


00 


00 


7E 


00 




DB 


000H,000H,07EH,000H 


ED7C 


00 


00 


18 


00 




DB 


000H,000H,018H,000H 


ED80 


04 


0A 






ARW86 : 


DB 


4 , 10 


ED82 


03 


FF 


F0 


00 




DB 


003H , 0FFH ,0F0H,000H 


ED86 


03 


FF 


C0 


00 




DB 


003H , 0FFH , 0C0H , 000H 


ED8A 


03 


FF 


00 


00 




DB 


003H , 0FFH ,000H,000H 


ED8E 


03 


FF 


C0 


00 




DB 


003H,0FFH,0C0H,000H 


ED92 


03 


FF 


F0 


00 




DB 


00 3H , 0FFH ,0F0H,000H 


ED96 


03 


CF 


FC 


00 




DB 


003H , 0CFH , 0FCH , 000H 


ED9A 


03 


03 


FF 


00 




DB 


003H,003H, 0FFH , 000H 


ED9E 


00 


00 


FF 


C0 




DB 


000H,000H, 0FFH , 0C0H 


EDA2 


00 


00 


3F 


00 




DB 


000H.000H, 03FH, 000H 


EDA6 


00 


00 


0C 


00 




DB 


000H,000H, 00CH , 000H 


EDAA 


04 


0A 






ARW87 : 


DB 


4,10 


EDAC 


01 


FF 


F8 


00 




DB 


00 1H , 0FFH , 0F8H , 000H 


EDB0 


01 


FF 


E0 


00 




DB 


001H,0FFH,0E0H,000H 


EDB4 


01 


FF 


80 


00 




DB 


001H,0FFH,080H,000H 


EDB8 


01 


FF 


E0 


00 




DB 


00 1H , 0FFH ,0E0H,000H 


EDBC 


01 


FF 


F8 


00 




DB 


00 1H , 0FFH , 0F8H , 000H 


EDC0 


01 


E7 


FE 


00 




DB 


001H,0E7H, 0FEH , 000H 


EDC4 


01 


81 


FF 


80 




DB 


001H,081H, 0FFH , 080H 


EDC8 


00 


00 


7F 


E0 




DB 


000H,000H, 07FH , 0E0H 


EDCC 


00 


00 


IF 


80 




DB 


000H,000H, 0 1FH , 080H 


EDD0 


00 


00 


06 


00 




DB 


000H,000H,006H,000H 


EDD4 


EDE4 EDFA 


ARW4 : 


DW 


ARW40 , ARW4 1 ;BIT SHIFTED PATTERN 


EDD8 


EE 10 EE26 




DW 


ARW42 , ARW43 


EDDC 


EE3C EE52 




DW 


ARW44 , ARW45 


EDE0 


EE68 EE7E 




DW 


ARW46 , ARW47 


EDE4 


02 


0A 






ARW40 : 


DB 


2,10 


EDE6 


FE 


00 








DB 


0FEH , 000H 


EDE8 


FC 


00 








DB 


0FCH.000H 


EDEA 


F8 


00 








DB 


0F8H , 000H 


EDEC 


FC 


00 








DB 


0FCH , 000H 


EDEE 


FE 


00 








DB 


0FEH , 000H 


EDF0 


DF 


00 








DB 


0DFH , 000H 


EDF2 


8F 


80 








DB 


08FH , 080H 


EDF4 


07 


C0 








DB 


007H , 0C0H 


EDF6 


03 


80 








DB 


003H , 080H 


EDF8 


01 


00 








DB 


00 1H , 000H 


EDFA 


02 


0A 






ARW4 1 : 


DB 


2, 10 


EDFC 


7F 


00 








DB 


07FH , 000H 


EDFE 


7E 


00 








DB 


07EH , 000H 


EE00 


7C 


00 








DB 


07CH , 000H 


EE02 


7E 


00 








DB 


07EH , 000H 


EE04 


7F 


00 








DB 


07FH , 000H 


EE06 


6F 


80 








DB 


06FH , 080H 


EE08 


47 


C0 








DB 


047H , 0C0H 


EE0A 


03 


E0 








DB 


003H , 0E0H 


EE0C 


01 


C0 








DB 


001H.0C0H 


EE0E 


00 


80 








DB 


000H.080H 


EE10 


02 


0A 






ARW42 : 


DB 


2,10 


EE1 2 


3F 


80 








DB 


03FH , 080H 


EE 14 


3F 


00 








DB 


03FH , 000H 


EE 16 


3E 


00 








DB 


03EH , 000H 


EE 1 8 


3F 


00 








DB 


03FH , 000H 


EE1A 


3F 


80 








DB 


03FH.080H 


EE 1C 


37 


C0 








DB 


037H , 0C0H 


EE1E 


23 


E0 








DB 


023H , 0E0H 


EE20 


01 


F0 








DB 


00 1H , 0F0H 


EE22 


00 


E0 








DB 


000H , 0E0H 


EE24 


00 


40 








DB 


000H , 040H 


EE26 


02 


0A 






ARW4 3 : 


DB 


2,10 


EE28 


IF 


C0 








DB 


0 1 FH , 0C0H 


EE2A 


IF 


80 








DB 


0 1 FH , 080H 


EE2C 


IF 


00 








DB 


01FH.000H 


EE2E 


IF 


80 








DB 


0 1FH , 080H 


EE30 


IF 


C0 








DB 


0 1FH , 0C0H 
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EE32 


IB 


E0 






DB 


0 1BH , 0E0H 


EE34 


11 


F0 






DB 


0 1 1H , 0F0H 


EE36 


00 


F8 






DB 


000H.0F8H 


EE38 


00 


70 






DB 


000H , 070H 


EE3A 


00 


20 






DB 


000H , 020H 


EE3C 


02 


0A 




ARW44 : 


DB 


2,10 


EE3E 


0F 


E0 






DB 


00FH , 0E0H 


EE40 


0F 


C0 






DB 


00FH , 0C0H 


EE42 


0F 


80 






DB 


00FH.080H 


EE44 


0F 


C0 






DB 


00FH , 0C0H 


EE46 


0F 


E0 






DB 


00FH , 0E0H 


EE48 


0D 


F0 






DB 


00DH , 0F0H 


EE4A 


08 


F8 






DB 


008H , 0F8H 


EE4C 


00 


7C 






DB 


000H , 07CH 


EE4E 


00 


38 






DB 


000H , 038H 


EE50 


00 


10 






DB 


000H , 010H 


EE52 


02 


0A 




ARW45 : 


DB 


2,10 


EE54 


07 


F0 






DB 


007H , 0F0H 


EE56 


07 


E0 






DB 


007H , 0E0H 


EE58 


07 


C0 






DB 


007H , 0C0H 


EE5A 


07 


E0 






DB 


007H , 0E0H 


EE5C 


07 


F0 






DB 


007H , 0F0H 


EE5E 


06 


F8 






DB 


006H , 0F8H 


EE60 


04 


7C 






DB 


004H , 07CH 


EE62 


00 


3E 






DB 


000H , 03EH 


EE64 


00 


1C 






DB 


000H , 01CH 


EE66 


00 


08 






DB 


000H , 008H 


EE68 


02 


0A 




ARW46 : 


DB 


2,10 


EE6A 


03 


F8 






DB 


003H , 0F8H 


EE6C 


03 


F0 






DB 


003H , 0F0H 


EE6E 


03 


E0 






DB 


003H , 0E0H 


EE7 0 


03 


F0 






DB 


003H , 0F0H 


EE7 2 


03 


F8 






DB 


003H , 0F8H 


EE7 4 


03 


7C 






DB 


003H , 07CH 


EE7 6 


02 


3E 






DB 


002H , 03EH 


EE78 


00 


IF 






DB 


000H , 0 1 FH 


EE7A 


00 


0E 






DB 


000H.00EH 


EE7C 


00 


04 






DB 


000H , 004H 


EE7E 


03 


0A 




ARW47 : 


DB 


3,10 


EE80 


01 


FC 


00 




DB 


00 1H , 0FCH , 000H 


EE83 


01 


F8 


00 




DB 


001H,0F8H,000H 


EE86 


01 


F0 


00 




DB 


00 1H , 0F0H , 000H 


EE89 


01 


F8 


00 




DB 


00 1H , 0F8H , 000H 


EE8C 


01 


FC 


00 




DB 


00 1H , 0FCH , 000H 


EE8F 


01 


BE 


00 




DB 


00 1H , 0BEH , 000H 


EE92 


01 


IF 


00 




DB 


00 1H , 0 1FH , 000H 


EE95 


00 


0F 


80 




DB 


000H , 00FH , 080H 


EE98 


00 


07 


00 




DB 


000H , 007H , 000H 


EE9B 


00 


02 


00 




DB 


000H,002H,000H 



END 
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EA00 


EB 


5E 


23 


56 


EB 


22 


29 


EB 


E3 


EA08 


11 


31 


EB 


01 


18 


00 


ED 


B0 


E3 


EA1 0 


3E 


50 


32 


61 


EC 


3E 


29 


32 


A6 


EA1 8 


7A 


EC 


3E 


28 


32 


AC 


EA 


21 


B5 


EA20 


A6 


EC 


22 


2F 


EB 


3A 


48 


EB 


3B 


EA28 


0F 


38 


17 


47 


3E 


28 


32 


61 


9E 


EA30 


EC 


3E 


00 


32 


7A 


EC 


3E 


18 


18 


EA38 


32 


AC 


EA 


21 


D4 


ED 


22 


2F 


FB 


EA40 


EB 


78 


0F 


30 


04 


CD 


D9 


EB 


37 


EA48 


C9 


2A 


31 


EB 


22 


2B 


EB 


2A 


71 


EA50 


33 


EB 


22 


2D 


EB 


CD 


DC 


EA 


EB 


EA58 


E6 


03 


28 


05 


3E 


02 


C3 


16 


2F 


EA60 


EB 


CD 


A5 


EB 


CD 


D9 


EB 


FD 


D6 


EA68 


21 


39 


EB 


CD 


49 


EB 


3A 


39 


B9 


EA7 0 


EB 


F5 


FD 


21 


39 


EB 


CD 


49 


38 



EA7 8 


EB 


FI 


B7 


20 


11 


21 


35 


EB : 


: 05 


SUM: 


36 


55 


6F 


EF 


47 


DE 


8D 


00 1738 


EA80 


3 A 


39 


EB 


E6 


03 


06 


04 


BE 


0F 


EA88 


23 


CA 


11 


EB 


10 


F9 


21 


3A 


4D 


EA90 


EB 


7E 


23 


B6 


28 


D8 


3A 


3A 


B6 


EA98 


EB 


CD 


0A 


EB 


2A 


31 


EB 


19 


0C 


EAA0 


22 


2B 


EB 


3A 


3B 


EB 


CD 


0A 


6F 


EAA8 


EB 


3E 


01 


BB 


28 


04 


CB 


2A 


06 


EAB0 


CB 


IB 


2A 


33 


EB 


19 


22 


2D 


96 


EAB8 


EB 


CD 


DC 


EA 


FE 


03 


28 


AE 


55 


EAC0 


F5 


CD 


D9 


EB 


FI 


0F 


38 


06 


C4 


EAC8 


2A 


2B 


EB 


22 


31 


EB 


0F 


38 


C5 


EAD0 


06 


2A 


2D 


EB 


22 


33 


EB 


CD 


55 
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EAD8 


D9 


EB 


18 


92 


AF 


ED 


5B 


44 : 


A9 




ECA0 


ID 


CB 


3C 


CB 


ID 


C9 


B6 


EC 


77 


EAE0 


EB 


2A 


2D 


EB 


B7 


ED 


52 


38 : 


5B 




ECA8 


D6 


EC 


F6 


EC 


16 


ED 


36 


ED 


CA 


EAE8 


09 


ED 


5B 


2D 


EB 


2A 


46 


EB : 


C4 




ECB0 


56 


ED 


80 


ED 


AA 


ED 


03 


0A 


54 


EAF0 


ED 


52 


17 


ED 


5B 


40 


EB 


2A : 


; F3 




ECB8 


FF 


FC 


00 


FF 


F0 


00 


FF 


C0 


A9 


EAF8 


2B 


EB 


B7 


ED 


52 


38 


09 


ED : 


3A 




ECC0 


00 


FF 


F0 


00 


FF 


FC 


00 


F3 


DD 
























ECC8 


FF 


00 


C0 


FF 


C0 


00 


3F 


F0 


AD 


SUM: 


00 


00 


7 A 


00 


F3 


BC 


45 


E3 B46 1 




ECD0 


00 


0F 


C0 


00 


03 


00 


03 


0A 


DF 
























ECD8 


7F 


FE 


00 


7F 


F8 


00 


7F 


E0 


53 


EB00 


5B 


2B 


EB 


2A 


42 


EB 


ED 


52 


07 




ECE0 


00 


7F 


F8 


00 


7F 


FE 


00 


79 


6D 


EB08 


17 


C9 


5F 


16 


00 


07 


D0 


15 


41 




ECE8 


FF 


80 


60 


7F 


E0 


00 


IF 


F8 


55 


EB10 


C9 


AF 


18 


02 


3E 


01 


32 


3C 


3F 




ECF0 


00 


07 


E0 


00 


01 


80 


03 


0A 


75 


EB18 


EB 


CD 


D9 


EB 


ED 


5B 


29 


EB 


D8 




ECF8 


3F 


FF 


00 


3F 


FC 


00 


3F 


F0 


A8 


EB20 


21 


31 


EB 


01 


18 


00 


ED 


B0 


F3 
























EB28 


C9 


IF 


37 


CD 


FC 


0C 


E6 


A3 


7D 




SUM: 


43 


90 


F8 


El 


B4 


29 


2D 


0A FF0E 


EB30 


47 


E6 


80 


78 


CA 


32 


IF 


32 


72 
























EB38 


BE 


3E 


06 


80 


22 


BF 


3E 


E6 


87 
























EB40 


10 


C4 


A9 


04 


3A 


EA 


3C 


87 


68 




ED00 


00 


3F 


FC 


00 


3F 


FF 


00 


3C 


B5 


EB48 


3E 


01 


93 


IF 


3E 


05 


ED 


79 


9 A 




ED08 


FF 


C0 


30 


3F 


F0 


00 


0F 


FC 


29 


EB50 


AF 


ED 


79 


16 


80 


15 


20 


FD 


DD 




ED 1 0 


00 


03 


F0 


00 


00 


C0 


03 


0 A 


C0 


EB58 


3E 


05 


ED 


79 


3E 


02 


ED 


79 


4F 




ED 18 


IF 


FF 


80 


IF 


FE 


00 


IF 


F8 


D2 


EB60 


IE 


05 


FD 


22 


80 


EB 


16 


03 


C6 




ED20 


00 


IF 


FE 


00 


IF 


FF 


80 


IE 


D9 


EB68 


CD 


82 


EB 


38 


09 


FD 


77 


00 


EF 




ED28 


7F 


E0 


18 


IF 


F8 


00 


07 


FE 


93 


EB7 0 


FD 


23 


15 


20 


F3 


C9 


FD 


2A 


38 




ED30 


00 


01 


F8 


00 


00 


60 


03 


0A 


66 


EB7 8 


80 


EB 


ID 


20 


E9 


C3 


14 


EB 


53 




ED38 


0F 


FF 


C0 


0F 


FF 


00 


0F 


FC 


E7 
























ED40 


00 


0F 


FF 


00 


0F 


FF 


C0 


0F 


EB 


SUM: 


B8 


30 


9F 


3F 


08 


C5 


1C 


87 0616 




ED48 


3F 


F0 


0C 


0F 


FC 


00 


03 


FF 


48 
























ED50 


00 


00 


FC 


00 


00 


30 


04 


0A 


3A 
























ED58 


07 


FF 


E0 


00 


07 


FF 


80 


00 


6C 


EB80 


1C 


E5 


01 


93 


IF 


21 


00 


00 


D5 




ED60 


07 


FE 


00 


00 


07 


FF 


80 


00 


8B 


EB88 


2B 


7C 


B5 


28 


0D 


AF 


ED 


79 


A6 




ED68 


07 


FF 


E0 


00 


07 


9F 


F8 


00 


84 


EB90 


ED 


78 


IF 


30 


F3 


0B 


ED 


78 


17 




ED7 0 


06 


07 


FE 


00 


00 


01 


FF 


80 


8B 


EB98 


B7 


C9 


D5 


CD 


A5 


EB 


D1 


2B 


AE 




ED7 8 


00 


00 


7E 


00 


00 


00 


18 


00 


96 


EBA0 


7C 


B5 


20 


FB 


C9 


F3 


CD 


AE 


83 
























EBA8 


EB 


CD 


BA 


EB 


FB 


C9 


01 


A2 


C4 




SUM: 


06 


02 


AD 


9B 


63 


EB 


A0 


F4 A45C 


EBB0 


IF 


3E 


47 


ED 


79 


3E 


1A 


ED 


4F 
























EBB8 


79 


C9 


01 


93 


IF 


21 


CA 


EB 


CB 




ED80 


04 


0A 


03 


FF 


F0 


00 


03 


FF 


02 


EBC0 


16 


0F 


7E 


23 


ED 


79 


15 


20 


61 




ED88 


C0 


00 


03 


FF 


00 


00 


03 


FF 


C4 


EBC8 


F9 


C9 


18 


01 


00 


02 


70 


04 


51 




ED90 


C0 


00 


03 


FF 


F0 


00 


03 


CF 


84 


EBD0 


44 


05 


00 


06 


00 


07 


00 


03 


59 




ED98 


FC 


00 


03 


03 


FF 


00 


00 


00 


01 


EBD8 


Cl 


ED 


4B 


31 


EB 


2 A 


33 


EB 


5D 




EDA0 


FF 


C0 


00 


00 


3F 


00 


00 


00 


FE 


EBE0 


ED 


5B 


3D 


EB 


7A 


B3 


20 


04 


Cl 




EDA8 


0C 


00 


04 


0A 


01 


FF 


F8 


00 


12 


EBE8 


ED 


5B 


2F 


EB 


3A 


3F 


EB 


CD 


93 




EDB0 


01 


FF 


E0 


00 


01 


FF 


80 


00 


60 


EBF0 


F8 


EB 


C9 


3D 


FE 


58 


C2 


00 


01 




EDB8 


01 


FF 


E0 


00 


01 


FF 


F8 


00 


D8 


EBF8 


ED 


53 


F3 


EB 


0F 


0F 


32 


F7 


65 




EDC0 


01 


E7 


FE 


00 


01 


81 


FF 


80 


E7 
























EDC8 


00 


00 


7F 


E0 


00 


00 


IF 


80 


FE 


SUM: 


BD 


E9 


D5 


77 


B9 


E6 


14 


IE 3C14 




EDD0 


00 


00 


06 


00 


E4 


ED 


FA 


ED 


BE 
























EDD8 


10 


EE 


26 


EE 


3C 


EE 


52 


EE 


7C 


EC00 


EB 


CD 


6E 


EC 


22 


F5 


EB 


6A 


7E 




EDE0 


68 


EE 


7E 


EE 


02 


0A 


FE 


00 


CC 


EC08 


26 


00 


29 


ED 


5B 


F3 


EB 


19 


8E 




EDE8 


FC 


00 


F8 


00 


FC 


00 


FE 


00 


EE 


EC10 


11 


F3 


EB 


01 


02 


00 


ED 


B0 


8F 




EDF0 


DF 


00 


8F 


80 


07 


C0 


03 


80 


38 


EC18 


2A 


F3 


EB 


ED 


4B 


F5 


EB 


78 


98 




EDF8 


01 


00 


02 


0A 


7F 


00 


7E 


00 


0A 


EC20 


E6 


C0 


5F 


57 


E2 


29 


EC 


16 


69 
























EC28 


01 


3A 


F7 


EB 


A2 


C4 


3D 


EC 


AC 




SUM: 


E2 


8B 


80 


50 


C6 


23 


60 


28 E48B 


EC30 


2A 


F5 


EB 


01 


00 


40 


09 


D8 


2C 
























EC38 


22 


F5 


EB 


18 


DB 


7E 


08 


23 


9E 




EE00 


7C 


00 


7E 


00 


7F 


00 


6F 


80 


68 


EC40 


7E 


23 


D9 


57 


D9 


C5 


08 


57 


CE 




EE08 


47 


C0 


03 


E0 


01 


C0 


00 


80 


2B 


EC48 


08 


ED 


78 


AE 


ED 


79 


23 


03 


A7 




EE 1 0 


02 


0A 


3F 


80 


3F 


00 


3E 


00 


48 


EC50 


15 


C2 


49 


EC 


Cl 


E5 


3E 


08 


F8 




EE 1 8 


3F 


00 


3F 


80 


37 


C0 


23 


E0 


F8 


EC58 


80 


47 


E6 


C0 


BB 


CA 


66 


EC 


44 




EE20 


01 


F0 


00 


E0 


00 


40 


02 


0A 


ID 


EC60 


21 


50 


C0 


09 


44 


4D 


El 


D9 


85 




EE28 


IF 


C0 


IF 


80 


IF 


00 


IF 


80 


3C 


EC68 


15 


D9 


C2 


45 


EC 


C9 


7D 


CD 


F4 




EE30 


IF 


C0 


IB 


E0 


11 


F0 


00 


F8 


D3 


EC70 


99 


EC 


54 


5D 


29 


29 


19 


29 


CA 




EE38 


00 


70 


00 


20 


02 


0A 


0F 


E0 


8B 


EC7 8 


29 


29 


29 


E6 


07 


87 


87 


87 


FD 




EE40 


0F 


C0 


0F 


80 


0F 


C0 


0F 


E0 


1C 
























EE48 


0D 


F0 


08 


F8 


00 


7C 


00 


38 


B1 


SUM: 


92 


EE 


18 


64 


CB 


3B 


B5 


4C 1 5F3 




EE50 


00 


10 


02 


0A 


07 


F0 


07 


E0 


FA 
























EE58 


07 


C0 


07 


E0 


07 


F0 


06 


F8 


A3 


EC80 


C6 


40 


57 


IE 


00 


19 


EB 


60 : 


: DF 




EE60 


04 


7C 


00 


3E 


00 


1C 


00 


08 


E2 


EC88 


69 


7D 


CD 


99 


EC 


19 


E6 


07 : 


: 3E 




EE68 


02 


0A 


03 


F8 


03 


F0 


03 


E0 


DD 


EC90 


47 


57 


3E 


80 


C8 


0F 


10 


FD : 


: 40 




EE70 


03 


F0 


03 


F8 


03 


7C 


02 


3E 


AD 


EC98 


C9 


CB 


3C 


CB 


ID 


CB 


3C 


CB : 


8A 




EE7 8 


00 


IF 


00 


0E 


00 


04 


03 


0A 


3E 



126 tWICftS XI 

























EE90 


BE 


00 


01 


IF 


00 


00 


0F 


80 


: 6D 


SUM: 


6F 


BF 


5F 


DE 


4B 


62 


24 


62 


B9D0 




EE98 


00 


07 


00 


00 


02 


00 






: 09 


EE80 


01 


FC 


00 


01 


F8 


00 


01 


F0 


: E7 




SUM: 


BF 


04 


F9 


20 


FB 


FC 


10 


71 


39E5 


EE88 


00 


01 


F8 


00 


01 


FC 


00 


01 


: F7 

























'J*t6-4 7 ■}**'*# -5 -f, i> L < 



100 


CLEAR &HE000 










110 


IF MEM$ ( &HEA00 , 4 ) < >HEXCHR$ ( "EB 5E 23 56”) THEN LOADM "MOUSE. OBJ" 








120 


DEFUSR0=&HEA00 










130 


X= 1 00 : Y= 1 00 










140 


MEM$ ( &HE000 , 4 ) =MKI $ ( X ) +MKI $ ( Y ) 


: ’X Y 








150 


’ MEM$ ( &HE000 , 4 ) =HEXCHR$ ( "64 00 64 00") 


: ’X Y 








160 


MEM$ ( &HE004 , 4 ) =HEXCHR$ ("01 02 03 04") 


:’ BUTTON CONDITION 






170 


MEM$ ( &HE008 , 4 ) =HEXCHR$ ( " 00 00 00 00") 


: ’MOUSE DATA 








180 


MEM$ ( &HE00C , 3 ) =HEXCHR$ ( " 00 00 04") 


: ’MOUSE CURSOR 








190 


X0=40:X1=240:Y0=24:Y1=160 










200 


MEM$ ( &HE00F , 8 ) =MKI $ ( X0 ) +MKI$ ( XI- 1 ) +MKI$ ( Y0 ) +MKI $ ( Yl- 1 ) 








210 


’ MEM$ ( &HE00F , 8 ) =HEXCHR$ ( " 28 00 EF 00 18 00 


9F 00" ) : ’AREA 








220 


MEM$ ( &HE0 17,1) =HEXCHR$ ( " 00 " ) 


: ’MODE 








230 


WIDTH40 










240 


9 










250 


1 MEM$ ( &HE00C , 3 ) =HEXCHR$ ( " 80 D0 07"):’l MY 


CURSOR 2T ’ . ’ - M 








260 


* ’MEM$(&HE080, 16)=HEXCHR$( "90 D0 93 D0 96 D0 


99 D0 9C D0 9F D0 A2 


D0 


A5 


D0 " ) 


270 


* MEM$ ( &HE090 ,16) =HEXCHR$ ("01 01 80 01 01 40 


01 01 20 01 01 10 01 


01 


08 


01" ) 


280 


’MEM$ (&HE0A0 , 16 ) =HEXCHR$ ( "01 04 01 01 02 01 


01 01") 








290 


CLS 4 UNIT 










300 


LINE(X0-1 ,Y0-1 )-(Xl ,Y1 ) , PSET , 7 , B 










310 


LINE ( (X0-1 )/8, (Y0-1 )/8)-( ( XI -8 ) /8 , ( Yl-8 ) /8 ) 


, CHR$ ( 225 ) , BF 








320 


’ 










330 


D$=USR0 ( CHR$ ( &H0 , &HE0 ) ) 










340 


9 










350 


BT=PEEK ( &HE008 ) AND 3 










360 


IF BT=3 THEN WIDTH80 : END 










370 


IF BT=1 THEN C=224:GOSUB "PSET" 










380 


IF BT=2 THEN C=225:GOSUB "PSET" 










390 


GOTO 330 










400 


’ 










410 


LABEL"PSET" 










420 


X=CVI (MEM$ ( &.HE000 , 2 ) ) :X=INT(X/8) 










430 


Y =CVI ( MEM$ ( &HE002 , 2 ) ) :Y=INT(Y/8) 










440 


PSET ( X+239+ 1 ,Y+ 159+1 , (225-C)*7) 










450 


LOCATEX , Y : PRINTCHR$ ( C ) ; : RETURN 











SAVEM "MOUSE. OBJ", &HEA00, &HEE9D 

T-fe-T'UTufcfcSfcV* (r-7°TfenJ^Ut% tto* DtoTvWiDftCf'^ 
&C!) A b 6-4 § RUN t5(iJo!:, turbo BASIC ©«£tt<Hi& 
C TKMODE OJ ^HfTtTfc'< £fc)„ t5 tf-f X^i5@D, "MOUSE. OBJ" **n 
— — ^ b fib 5 -5 0 traJitKt/ 

?n?, t {C-fe-^atg^t*Ii-Wt^TV^Vi 0 

9 A H, fAi'*f-L>LTffJ > Lfcv ? A £ - V (*a»fc*f©fe±lRl £ ©3cW*f U if) 

**, a ©fc©*f*»e»T2bs 0 

Gft**, £ffl©jK^y£#1'fc44££&* s ^^3ftSt v 2b3'5 < > jj&bUftHi: IttSJ© 

tf9>*m*cff-r©'C2bS!&* t ARJjofgttifS lt &££©#* 

4CtLS^ 6>U<, **»*i»CiltV»tt1*T*5o V»aTi:*ofce>, I SHIFT | + 
I BREAK I .fcAAffbfrib Z% >T BREAK t2> 0 

£-?&') A h 6-40I&HJI, ■T4fc%'; A h 6-3©««»/l/-f->©flev^-PJbSo 
140~220jT«^°9A-^©JgSTS)l)o 



SS6¥ SIO 727 



© T’yXJj — V (X, Y©li) 

2*u bourrjgjei-So MKi$©flev»^ctt* 0 ^h-4^m b-c&s. 

(D 

ttUi 4 tiJDiStlSo 
00 H = &? b RET 

01h=£{IW yfcfrtfffSftfc e> RET 
02 h = £ffl T 7 'y ti **# $ titz b RET 
03 h = Mill t t> If $ tit: b RET 
04h = ®3& 

y x b 6-4 Tti, fc K*> < |5f*>zK? >*5ff <S RET 01 H , 02 H , 03 H © 3 t 

43 D £Tt^bT©S>o 04 H (i Ffg*t)J ©± — ftfc©T<b£ 0 MM'nM b 0 

*®0 3'nM hCIi, lll£Cv7X*>6S!<&tij£ttt.:±©T — 7#sAotT>-S 0 4 ^n*T 
bSttx^-a-KTfcio 

00h-»IE# 

01h^-^”?X^C^*5 o -CV^V^ t* 

02h-»v^x* — V ;i/©firg*s, 7 -f 7 F 7 ©£MUC&-S 0 

-ntN'M bo 

© T’jXA-yJHOltt, fe©*t£ 

ftt]© 2^M b B*-y;bffl0/5 7-( y^Of— ftT V> ST b>XT4 
•So 0000 h &Ib^ 1‘S> t, T7*A'b©£±ft#A®IC&-So 3^M bStifeoUSo V X 
b 6-4 Tti^C^oTV^o -a-tb3/NM b 0 

© (&ttl£0) ©ISS 

X^ftOTim X£fl©±IB*, Y^ffiOTR*, Y*|*©±Rfi, OlCiSSt 
•So ^tl^tl2^^ bOffiT&So U X b 5 T*(i, v ^ X * - V ;vo£±So6I^, 
(40, 24) -(240- 1, 160- 1 ) ©g|v>©T'A>‘'>ti)&V:> £ 5 C L-TY^S. -nfH'M bo 

© *- K©ft£ 

iOf'yb (iWIDTH©Ji^ 0 0 *640^6- F, 1 &<S80^*- F E &S>. fl 1 t*>y 
b«vyxttf^4f-tS*S tzti<D?y7 4 'yXfSli ; &-rS^©X7X‘TS)S)o 046^”) 

x «]#, i * b ©Tjg® $ 4ifc -7 y x * - y >v * xor f Tgt^-r s /f it T-r <* ret 

tSo Mb I'M bo 

t, AttJaLtfcfctf-CfcSo it>T, IEU>yxb 6-3©fl6v»*tt, ©—©©'My- 
7£Ih£LT, 330fT©i 5 C-?-©/N°7y-7©^feffi#lfe§feoT, USR^frT&So * 
©&, itf7y©$J®£&yftV>©&‘'>®©#;Sgl'M b CJ X b 6-4 T(i E008 H #itil) £ 
PEEK It AND 3, -?7 X# — y ;P©{&B££n 9 -fzl'ttb, 420 It, 430 It© < fc 5 Cf tl 
J;v> 0 ^©^8 'CSlJ-pTViS)©(4A 1 -y 7 7 7©fiLBC^^tTV^S)©Xf*^S!)3i^^b 
3 Co 

D X b 6-2 ©UMBRAS.*®© EA0 F„ST«/n°7X-7©®^4c^ 



72S K&dHJ&Xl 



T&2> 0 <fc 5 K EB31 h ^?>© 24 'nM F <DT$>6 (RET tit 

7GC|£iiSLifi1'') 0 

EA41 H tT(i, 40/80^^6— F*©#J!)&;*.T, 7°n 7*9 A & fcV>5 
*fg©r ^-7^§fotl^ 0 A"7^-^©|)©gi t*y h*U !Sf^tf,EA45 H #ifeC3fE 
T;tet> £ RET, $ b%< «'EA49 h *^©t^X F^-f^CASo 
&&i¥Lv>t£BJfi L&^T, *f?>v-j-y(DW%^ k if&Tfc < 0 
CIN=EADC H (i, (X0, Y0) £*7 4 7 F 7 ©4"C Ao T V* -5 ^ if 0 — f- 

>0 7 4 > K^O'fCAoTV^^^ti’A 1/^X7© t*>y F JitS (t*>y F 1 hi Y, tf 
7F0li X) 0 

XSIGN = EB0A h (i 8 tfy F ©fT^fT# © E 1^X7£16 t*>y hiCLTDEu^X 
^KAti5 6©o 

MSIN =EB49„«v^x^?,©AAJ 
SETMS = EBA5 h (2 7 7 X © T — ^f74X 
PAT =EBF8 H (iv^x^-y;P©fSB 
XYADDR =EC6E„ttffi«(X, Y)*>£ G-RAM ©7 F 
fit, ECA6 H OT$«7 , x7>r 7^f-?ti5 0 
XCtSfcft, * 6 ^ 1 ;* 1 h’-y FtFo 77 F Lfcr-7£ 8 tib’DfflSLT &<:£?££ 
S^tl^o y^eD §m-5t, ^tfB#CV^V^S/7 F £-&£ 
yil^SCtiS. 40^-Fh 80^-F©2 tiJ 0 ©t-7-C500'nM Fifi< £ 
-So ri <IEtv^7°n7’7 AT(i, j£S&itffiK:$'7 F Gfcr-7 £fF-S^# *©T2bS*s, 
Lo^O ^ £ LTV>S;fottT&4 0 

THi, r V y X §4*^ t (> St () V 7 H f: ^ J 8 ^ 70, 3. (D^-^foZ, ©T£> 
■So 
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iifl/c o'er 



W7% 



£©#T*ttifS©1nE>$Bfe|ga i !fc'5 *>fcM{BZt5CQT$>6o CZ-8BM2 

(RS-232C • v y X *K— F ) i03> ho-;l/7 , D^7A*0t^5 o /n^7 AS turbo 
BASIC © RS-232C t H#© £ t **T 3 S J: 5 C* 2 3 t * g Kj 1 L Tf^ -a 

tzo ioTturbo a-f-Ctottt, S$^C fc’Bf XfTta^o L*> 1 7n 77 A4 3 © 
SIO, CTC©7 Fl''X£f t <5> U $ £ C CZ-8FB01 £f£5 Mb C < it CZ-8FB02 ?$>■? 
TbSilDIiA^X I;V0oi;oS^btS) ttUi turbo tfefiS £ t itf££ 3 *> 
£, rBASIC Cf£#LM>>Ifi:/n77Aj ^S[^©##<*?>ViCtt*ST*?. 3 o 
T, 5fciJCZ-8BM2CiiJ&-lry H:Aofc7/n-^3 >/d?* 7A (tt«!§) MT 
i>T < £©T&3*5, if -5 ^ :0 $®/d^7 
T&6o 

ki^-rafllT****, &©«FllTtt rififi^^J it** 

MtsoTfeJl^TIi (1987 ^TX>S) NTT **ft*>£tiit&©tio 
i? a. 7 - y 7 £ & it 3 X#ti it -CMT-P3 b S * 5 * (Site© 4 v 3 A**® 0 # it 

i©ii*±$4fcv»s)„ *fc, 0^T«i?t.i?t> tsfRfg** 1200bps, 

4 5ti**, iio# DfoTfftTfe £fi7 3 &©*?■;& £„ ^Lt- 
#©M*i4 r^y3V3ifll*^^o'rTMi«®6v»©?J "C^ao #*€> <®6v>©fi 
CHAT tfitT* 5% teii PDS M7U y 7 F 7 T 7 V 7 F ) **^ K AS 4 if t V 3 -5 7 D 
7 hUSi 5 , £-7£C^#©'*y 3 7jif§it Rtltiit© b ©J &©T£>3 0 
b5^LH bftii.t!:, ltttCHATjMHI^»'C*6o *oT**ur*U»©£* 
■5*5, 3 £ivebft^'C£>&o t, X 0 Jtt^© &M>&b©£JSC 

TCt5*^*©ti o ZtiH&< £ T b WMt & tz it 4© rtf**, CHAT®**©**:## 
a*ftfc6^4©Ttt4v»rtf%3*\,1"4*>fc CHAT Cifr£MtTV>£ J:-4Aii, fife 
A t©3 $ yCifo^io^WJl^SOTiiJarV^kJiit-SOTJbSo ® 

fciaU^oTW^TK-TJ: 9 b, 

*A*^i^ti5-5o 

tv^5 frifC, £©#©7’n77Aii, TiMt'XrV 73 y/5- F4ifc(£i^, < ft. 
<*fLi'*y n ylifi&ifCit'Kfc)#^ i — cfelii^Lrtr^o 



Xl©i— 9*-tt turbo BASIC©v-aL7n/*Kfr3-rv»*V»fe(t4f*»e>, *7-1 (tur 
boZ 0Yia7/^'(>?lffl)^##Kl,tl'/i/’lftK tztz b7n77Aii BASIC © 3 



752 §»£*!> XI 



USR0-USR9 £ kCftoT^S. ^©P£, X 
^KftfcR-TfcSCtt r*©JI$J ^>7° 

;U7 , D^7A^J:<it««i;o 4J3, SAVE, SAVEM, LOAD, LOADM fi&t* 
© T, g #"C ( BASIC ^if-C)7“n^7A^|atr*t*LT^1-SJ;-Co 



S7-1 ilHs / 'x 7 — 7 



1 > ,r;-u- f 

2 

3 ) x— 7 t ' 7 hi 

4 ) 7 F -y 7 C -y I- ft 

5 ) ii1»Si]ffl}l$ 

6 ) 

7 ) cr, LFn- Kwaifttoa 

8 ) CR, LF3- KOTftlttoH 

9) a^iss:^5ij<7)«Ji^>iiiS: »Iw7'p7 

7AT1JTLA'(Ji4'i') 

10) i> K 3- K }i/£ 

1 ) tf-u- F 

0~6<7>*Mii;J: Utf-U- F 4}g£T3o 



ii fl 


0 


1 


2 


3 


4 


5 


6 


tK— L h 

( bps ) 


150 


300 


600 


1200 


2400 


4800 


9600 



2 ) 

0 : 'Jf-ff 4-fSfflT -5 o 

N : fiv? 4-fSffl L 

3 ) x-7 t'-y F* 

5 • x — 2 t’ -y F ft 4 5 1" -y F £ f -5 » 

6 : f-7 fy F ft £ 6 t* -y H:Tlio 

7 : x-7 f-y Fft47t*-y F if 5, 

8 • x— 7 t ' -y F ft £8 C ’y F £ T Z> 0 

4 ) 7 F -y 7" E -y F ft 

1 : 7 F 7 7‘ f -y F ft 4 1 1' -y F £ t Z > « 

2 : 7 F -y^t'-y F *4 1.5 t'-y F tt5. 

3 : 7 F 7 7't'y Fft42t*-y F %„ 

5) ii«tt#P*R£ 

X : X0N/X0FF 3 - K t- <£ -5 ftffl 4fr4' 7 . 

R : RTSffl«fi-§-<7)0N/0FFC J: %®]®£T£o 
N i fc«iS«& : «<®®lifl4fi-4m,a\, 
-waifSWi «, x-^S®1f^Cft1f®Ji: 
fri'X x— 7 (T)SIS45:S^WI-a'#7^C L' £ #, a 
l raff (75-^it LSiiT-# $ 

ttgju: ti Z> £ 4®*f Z> 7x£c7> 

i „ 

"X"£Ft:ff3£, x — 7 t LT XOFF 3 — F' 
(&H13) 4 & 1 i®Ka$:: £C i -?xaif<7>— at 

ffut4#*L, X0N3- F'(&H11) C i OSIfB 

RTSffl-StH40FF CT 3 X 
£iz£'>Ti£\t<r>— atffit^S^L.ONcrs- 
£iz£ ‘J&fg»l!B4®;rf 5o 

6 ) 

S : x-7E-y F ft 7 t'-y F X* 7-<7)iMft1s4 
T$ 



N i fclJit'IS : x'— 7 t'-y F ft 7 f-y F X'i) 7” 
4X2 4l' 0 

x — 7C-y Fft7t'-y F T-W7)tfflS§II li-> 

7 F-f>3- F'SK&HOF) h'foZt, ftiHBff) 
x-7 ^rti±£ LT&IIL, 27F77F3-K 
SO( &H0E ) A 5 * til f ■ 4 nium<n X- - 7 4 ftffc?: £ 
Lxtoirr-So 

7) CR, LF3- F'OiMIffeiS 

C : 1S'J§5fclT3 — F ' £ LXCR3 — K (&FH0D) 
4jH-|1I T Z> o 

L * fclitfifc : HWgfeffa- F'X LX CR 3- 
K(&H0D) + LF3- K(&H0A)4a£ltT*„ 

8) CR, LF3 — KtfJSIf&S 

C : CR3- F'(&HOD)<7)SFflcJ:oTlID*+3fe 
FTfcSf Z> „ 

L : CR3- F' (&FI0D)<7)*4SIsT 

Z> £ 4 mix- 7 £ L T fell $ A -5 o CR 3 — F' 
(&H0D)+LFn- K (&H0A) 4iSit LXSFf-f 
Z>£, II'J» + ®cIt«1 4f* 0 

9) 

J : JIS*¥3- - K 
KI(&HlB4B)T-B^ISS:^5iJ(7)te4 U 4^L, 

F n — F'K0(&H1B48)T-B^I§S:^5IJ 
<7)*?b l J 4^T„ 

N ifc(i««§ : ->7 FJISi*^3- K4«ffl-T% 0 
( ^#7) 7" □ 2' 7 A X (i ”N " L A'Ff X. 4' i ' ) 

10) x> F'3- F'lSS 

x-7’*ia7)*t7 4fl»-r-l>fcto7)x> F'3- 

F'4I§:$1"5„ x> F'3— K i: LTa > f □— ;f 

3- F'(&H00~&H1F) (7>4>*'ibffiS<7)— ■ otriSW 
T-#^o HPi(;Fg$T?>/\”77-7li, tv77 
2 — 3 — K &H40-&H5F Hjtfofcf 
t5 (&H60~&H7FfcoJ) o D(ifclid) 

£ le'&tZ) tx>F'3 — KHT32FP — ;f D 
(&H04) TrlSffl $ tl-5, i tzZCn/i^J — ■? 4^' 
B&1--5 i:, X> K3- F'OTiMftffTftillilt’i'L)* 
F'o 

(;±) _ 

• Ill«'77- 7OT-) — U— F, - , \°')x-f, 

x — 7ft, 7 F •y7’t'-y F ftli^'St&X*# 4't'A ! , 
4nuK<7)/<7 7-7li*l«&X'# S„ 7;7;L, 
a i t J i7) / ''" : 77 — 7 t'i'fa&LX^OT^x'vy— 7 t- 

• iI^<7> J MSFftix-7ft8 t*-y FOT^CSJtl 
(->7 FJIS3- K4®-) X £12%%), %tz, t> 
7*7-<7iiMftl»(iSI/SO 3- F*4«3 :tci 
oXx-7ft* ! 7 t’-y \-<T)£ #X'fcBJS&£4-5 

s T*mari»Wic* 

7-c^r?>) 0 

*7$ a m >33 



§USRMS!lCOV.'-C 


USR 5 : PRINT £^ 5 IJ+CR( + LF) £ft* 


USRO : OPEN ^-y>T 5 (/< 77-7 


Tii 


SfellC 0 , 1 , C mi'fni' 4 : 


USR 6 : LOC /<v 7 Tft<r> 7 ! -?&.Z& 


ft-Jpf -5 - i: ) 


f 


USR 1 : CLOSE ?n-XTZ 


USR 7 : EOF i> K 3 - K£A*Lfc*' 


USR 2 : LINPUT 1 'nXtlt 3 (CRfe L < it 


if -7 *'£iST 


CR + LF* TO 


USR 8 : PGETC 1 


USR 3 : inputn mmxmzxtiTz 


(ftXW&a&ifttl-A'l') 




USR 9 : PPUTC 1 ±f- 7 «-lS:?lll*TI> 


O) ASCII = 1 - K) 


(ftXOT&ilA'iflJLfcl') 


USR 4 : PRINTS £ ft *T 5 


;±) USR 2 , USR 3 tt,Sf£^ 5 lJ<r>ftsI< 7 )ASCII 




3 — KTAi?hf:f- ^ft^T „ 



ZLX'Jzi- 7-1 =v-x y x k u x h 7-2 =?>?') x h 

A^#B§©it), UXh 7-3 =ty/;V/n/7A, 'J X \- 7-4 = fB#&X- $ -f)VV 7 
hT'£Mfc;£L{£v>k©K«&e>&v>©-C, *< J-T-9->'7°;WCl-g , ^V^) 0 9 X b 7-1 

Z80 SIO, CTCOT K w X 1F98 H i: 

1FA8 h i; * o T IA 5 0 -I ftfi CZ-8BM2 O 7 K V" XRJgX 4 y *•**, mfflffi 0#© 2 - 3 fll 
C&oTV:>&:Sr£©*>©-C£So X 'f y 7**1 - 2 ffl *> L < fct turbo ©:<§-&£ it, 

1F90„, lFA0 H t7 ntfj:v» 0 fc»±K9!bTfeffiU»©?*«>T* < 0 

'7xb7-l iilf Xp j>7i>®y-7 ij x t 



. Z80 

•PHASE 0EA00H 



0330 




QBREAK 


EQU 


0330H 




1FCA 




BBREAK 


EQU 


1FCAH 




1F98 




ZSIO 


EQU 


1F98H 


; IF NOT , 1F98H 


1FA8 




ZCTC 


EQU 


1FA8H 


; IF NOT , 1FA8H 


005C 




INTRSV 


EQU 


5CH 


; INT VECTOR 


0040 




QMAX 


EQU 


64 


; QUE SIZE 


0080 




QMAXX 


EQU 


QMAX+64 


; Q SIZE+ALPHA 


000D 




CR 


EQU 


0DH 




000A 




LF 


EQU 


0AH 




000E 




SO 


EQU 


0EH 




000F 




SI 


EQU 


0FH 




0011 




XON 


EQU 


11H 




0013 




XOFF 


EQU 


13H 


; CTRL CODES 






; BAU RATE 


0-6 








-.PARITY 




E,0,N 








;DATA BIT LEN 


5,6,7, 8 








;STOP BIT LEN 


1,2,3 








; CONTROLE 


X , R , N , " " 








; KANA MODE 


S , N , " " 








;CR,LF 


SEND 


C , L , " " 








; CR , LF 


RECEIVE 


C , L , " " 








; KANJI 




J , N , " " 


; DUMMY 






; END CODE 


i@» _»_» 


; PARAMS 






•JUMP TABLE 






EA00 


C3 EA1E 




JP 


OPEN 


; +0 






; I , 0 or 


C + PARAMETER 




EA03 


C3 EB84 




JP 


CLOSE 


; +3 






; TX ENDCODE 






EA06 


C3 ECDD 


* 


JP 


LINPUT 


; +6 






; UNTIL 


CR ( +LF ) 






EA09 


C3 ED35 




JP 


INPUTN 


; +9 






; INPUT 


n CHAR 







w tssfetcms xi 



EA0C 


C3 


ED68 


JP 


PRINTS ; +12 








*, TX STRING 




EA0F 


C3 


ED56 


JP 


PRINT ; +1 5 








; TX STRING + 


CR ( +LF ) 


EA12 


C3 


EB98 


JP 


LOC ; +18 








; RETURN BUFF 


SIZE 


EA1 5 


C3 


EBB9 


JP 


EOF ; +21 








; EOF OR NOT 




EA1 8 


C3 


EC9A 


1 

JP 


PGETC1 ; +24 








; RIMITIVE GET CHAR 


EA1B 


C3 


ED90 


JP 


PPUTC1 ; +27 








; PRIMITIVE PUT CHAR 


EA1E 


3A 


EE60 


OPEN : LD 


A, ( OPENF ) 


EA2 1 


B7 




OR 


A 


EA22 


28 


07 


JR 


Z, OPENGO 








; REOPEN THEN 


CLOSE 


EA24 


D5 




PUSH 


DE 


EA25 


C5 




PUSH 


BC 


EA26 


CD 


EB84 


CALL 


CLOSE 


EA29 


Cl 




POP 


BC 


EA2A 


D1 




POP 


DE 


EA2B 


3E 


FF 


OPENGO: LD 


A , 0FFH 


EA2D 


32 


EE60 


LD 


(OPENF), A ;SET FLAG 


EA30 


3D 




OPENW : DEC 


A 


EA3 1 


20 


FD 


JR 


NZ, OPENW ; WAIT 


EA33 


F3 




DI 




EA34 


21 


EBC6 


LD 


HL , INTRSR 


EA37 


22 


005C 


LD 


( INTRSV ) , HL 


EA3A 


FB 




El 


; SET VECTOR 


EA3B 


EB 




EX 


DE , HL 


EA3C 


78 




LD 


A , B ; COPY LEN 


EA3D 


B7 




OR 


A 


EA3E 


CA 


EE26 


JP 


Z , ERR ; NULL STR 


EA4 1 


05 




DEC 


B 


EA4 2 


7E 




LD 


A , ( HL ) ; 1 CHAR 


EA43 


23 




INC 


HL 


EA4 4 


FE 


49 


CP 


’ I * 


EA46 


28 


0B 


JR 


Z, OPENOK 


EA48 


FE 


4F 


CP 


'O' 


EA4A 


28 


07 


JR 


Z, OPENOK 


EA4C 


FE 


43 


CP 


'C* 


EA4E 


28 


03 


JR 


Z, OPENOK 


EA50 


C3 


EE26 


JP 


ERR 


EA53 


32 


EE4B 


OPENOK: LD 


(IOC) , A ; I ,0 or C 


EA56 


78 




LD 


A , B ; GET COUNT 


EA57 


D6 


04 


SUB 


4 


EA59 


DA 


EE26 


JP 


C , ERR 


EA5C 


FE 


07 


CP 


7 


EA5E 


D2 


EE26 


JP 


NC , ERR 


EA61 


4F 




LD 


C , A ; COUNTER 


EA62 


7E 




LD 


A, (HL) 


EA6 3 


23 




INC 


HL 








;BAU RATE 


0-6 


EA64 


D6 


30 


SUB 


» 0 » 


EA66 


FE 


07 


CP 


7 


EA68 


D2 


EE26 


JP 


NC , ERR 


EA6B 


16 


D0 


LD 


D , 208 


EA6D 


D6 


02 


SUB 


2 


EA6F 


F5 




PUSH 


AF 


EA70 


30 


01 


JR 


NC , OPEN0 


EA72 


AF 




XOR 


A 


EA7 3 


B7 




OPEN0 : OR 


A 


EA7 4 


28 


05 


JR 


Z , OPEN 1 


EA7 6 


CB 


3A 


SRL 


D ; D=D/2 


EA7 8 


3D 




DEC 


A 


EA7 9 


18 


F8 


JR 


OPEN0 


EA7B 


7A 




OPEN1 : LD 


A , D 


EA7C 


32 


EE2E 


LD 


(CTR) , A 
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EA7F 


FI 






POP 


AF 




EA80 


16 


40 




LD 


D, 40H 


; *16 


EA82 


30 


07 




JR 


NC , OPEN2 




EA84 


16 


80 




LD 


D , 80H 


; *32 


EA86 


3C 






INC 


A 




EA87 


28 


02 




JR 


Z , OPEN2 




EA89 


16 


C0 




LD 


D,0C0H 


; *64 


EA8B 


5A 


OPEN 2 : 


LD 


E,D 


; KEEP 








•PARITY 




E , 0 , N 




EA8C 


7E 






LD 


A, (HL) 




EA8D 


23 






INC 


HL 




EA8E 


16 


00 




LD 


D , 0 




EA90 


FE 


4E 




CP 


' N ’ 




EA92 


28 


0B 




JR 


Z, OPEN 3 




EA94 


14 






INC 


D 


; D= 1 


EA9 5 


FE 


4F 




CP 


'O’ 




EA97 


28 


06 




JR 


Z , OPEN3 




EA99 


14 






INC 


D 


;D=2 


EA9A 


FE 


45 




CP 


*E’ 




EA9C 


C2 


EE26 




JP 


NZ, ERR 




EA9F 


7B 


OPEN3 : 


LD 


A , E 




EAA0 


B2 






OR 


D 




EAA1 


5F 






LD 


E, A 


; KEEP 








•DETA BIT LEN 


5,6, 7,8 




EAA2 


7E 






LD 


A, (HL) 




EAA3 


23 






INC 


HL 




EAA4 


D6 


35 




SUB 


'5' 




EAA6 


DA 


EE26 




JP 


C , ERR 




EAA9 


FE 


04 




CP 


4 




EAAB 


D2 


EE26 


; A=0-3 


JP 


NC , ERR 




EAAE 


F5 






PUSH 


AF 




EAAF 


16 


E0 




LD 


D , 1 1 100000B 




EAB1 


B7 






OR 


A 




EAB2 


28 


05 




JR 


Z , OPEN35 




EAB4 


CB 


22 MLOOP : 


SLA 


D 




EAB6 


3D 






DEC 


A 




EAB7 


20 


FB 




JR 


NZ, MLOOP 




EAB9 


7A 


OPEN35 : 


LD 


A , D 




EABA 


2F 






CPL 






EABB 


32 


EE61 




LD 


(MASK) , A 




EABE 


FI 






POP 


AF 




EABF 


B7 






OR 


A 




EAC0 


EA 


EAC5 




JP 


PE , OPEN4 




EAC3 


EE 


03 




XOR 


1 IB 




EAC5 


0F 


OPEN 4 : 


RRCA 






EAC6 


0F 






RRCA 






EAC7 


F6 


01 




OR 


1 




EAC9 


32 


EE5A 




LD 


(WR3+1 ) , A 


;RCV 


EACC 


0F 






RRCA 






EACD 


F6 


80 




OR 


80H 




EACF 


F6 


02 




OR 


02H 




EAD1 


F6 


08 




OR 


08H 




EAD3 


32 


EE54 




LD 


(WR5+1 ) , A 


;SND 








; STOP BIT LEN 


1,2,3 




EAD6 


7E 






LD 


A, (HL) 




EAD7 


23 






INC 


HL 




EAD8 


D6 


31 




SUB 


*1* 




EADA 


DA 


EE26 




JP 


C, ERR 




EADD 


FE 


03 




CP 


3 




EADF 


D2 


EE26 




JP 


NC , ERR 




EAE2 


3C 






INC 


A 




EAE3 


87 






ADD 


A, A 




EAE4 


87 






ADD 


A, A ; A=A< <2 




EAE5 


B3 






OR 


E 




EAE6 


32 


EE52 




LD 


(WR4+1 ) , A 










CONTROLE 


X , R , N , " " 










KANA MODE 


S , N , " " 










CR , LF 


SEND 


C , L , " " 










CR , LF 


RECEIVE 


C , L , " " 










KANJI 




J , N , " " ; DUMMY 










END CODE 


-»_» 




EAE9 


C5 






PUSH 


BC 




EAEA 


E5 






PUSH 


HL 
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EAEB 


21 EE3F 




LD 


HL , PDFLT 


EAEE 


11 EE45 




LD 


DE , PARAM 


EAF1 


01 0006 




LD 


BC , 6 


EAF4 


ED B0 




LDIR 


; COPY DEFAULT 


EAF6 


EB 




EX 


DE , HL ; DE * =PARAM 


EAF7 


D9 




EXX 




EAF8 


El 




POP 


HL 


EAF9 


Cl 




POP 


BC 


EAFA 


11 EE2F 




LD 


DE , PLIST 


EAFD 


AF 




XOR 


A ; FLAG 


EAFE 


08 




EX 


AF , AF ' ; A ’ =0 


EAFF 


79 




LD 


A , C 


EB00 


B7 




OR 


A 


EB0 1 


28 IF 




JR 


Z, FINIS 


EB03 


FE 06 




CP 


6 


EB05 


20 02 




JR 


NZ,OPEN6 


EB07 


0D 




DEC 


C ; C=5 


EB08 


08 




EX 


AF , AF ’ ; A* <>0 


EB09 


46 


0PEN6 : 


LD 


B, (HL) 


EB0A 


23 




INC 


HL 


EB0B 


1A 


OPEN 7 : 


LD 


A, (DE) 


EB0C 


13 




INC 


DE 


EB0D 


B7 




OR 


A ; SEPARATOR 


EB0E 


CA EE26 




JP 


Z , ERR 


EB11 


B8 




CP 


B 


EB12 


20 F7 


; MATCH 


JR 


NZ , OPEN7 


EB1 4 


D9 




EXX 




EB1 5 


12 




LD 


(DE) , A 


EB1 6 


D9 




EXX 




EB1 7 


1A 


OPEN75 : 


LD 


A, (DE) 


EB18 


13 




INC 


DE 


EB19 


B7 




OR 


A 


EB1A 


20 FB 




JR 


NZ , OPEN7 5 


EB1C 


D9 


OPEN8 : 


EXX 




EB1D 


13 




INC 


DE 


EB1E 


D9 




EXX 




EB1F 


0D 




DEC 


C 


EB20 


20 E7 




JR 


NZ , OPEN6 


EB22 


08 


FINIS: 


EX 


AF , AF ’ 


EB23 


B7 




OR 


A 


EB24 


28 10 




JR 


Z , SETZ 


EB26 


7E 




LD 


A, ( HL ) ; ENDCODE 


EB27 


FE 40 




CP 


40H 


EB29 


DA EE26 




JP 


C , ERR 


EB2C 


FE 80 




CP 


80H 


EB2E 


D2 EE26 




JP 


NC , ERR 


EB3 1 


E6 IF 




AND 


1FH 


EB33 


D9 




EXX 




EB34 


12 




LD 


( DE ) , A ; STORE 


EB35 


D9 




EXX 




EB36 


F3 


SETZ: 


DI 


; SET ZCTC , ZSIO 


EB37 


CD EB6A 




CALL 


INITBF 


EB3A 


01 1FA9 




LD 


BC , ZCTC+ 1 JCH0 


EB3D 


3E 47 




LD 


A, 010001 1 IB ; MODE 


EB3F 


ED 79 




OUT 


(C) , A 


EB4 1 


3A EE2E 




LD 


A, (CTR) 


EB44 


ED 79 




OUT 


(C) ,A ;T CONSTANT 


EB46 


21 EE4C 


’ 


LD 


HL , SIOSA 


EB49 


01 1F99 




LD 


BC , ZSIO+ 1 ;CH A 


EB4C 


3E 0F 




LD 


A, 15 


EB4E 


CD EB63 




CALL 


SETSIO 


EB5 1 


21 EE5B 


* 


LD 


HL , SIOSB 


EB54 


01 1 F9B 




LD 


BC , ZSIO+3 ;CH B 


EB57 


3E 05 




LD 


A, 5 


EB59 


CD EB63 




CALL 


SETSIO 


EB5C 


3E FF 




LD 


A , 0FFH 


EB5E 


32 EE60 




LD 


( OPENF ) , A 


EB6 1 


FB 




El 




EB62 


C9 




RET 




EB63 


04 


SETSIO : 


INC 


B 


EB64 


ED A3 




OUTI 




EB66 


3D 




DEC 


A 


EB67 


20 FA 




JR 


NZ, SETSIO 


EB69 


C9 




RET 
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EB6A 


AF 


INITBF : 


: XOR 


A 


EB6B 


32 EE6A 




LD 


(QLEN) , A 


EB6E 


21 EE6B 




LD 


HL,Q0 


EB7 1 


22 EE66 




LD 


(HEAD) ,HL 


EB7 4 


22 EE68 




LD 


(TAIL) , HL 


EB7 7 


32 EE62 


* 


LD 


( LASTX ) , A 


EB7A 


32 EE63 




LD 


( XFLAG ) , A 


EB7D 


32 EE64 




LD 


( TKIN ) , A 


EB80 


32 EE65 




LD 


( RKIN ) , A ; RESET MODE 


EB83 


C9 




RET 




EB84 


AF 


CLOSE: 


XOR 


A 


EB85 


32 EE60 




LD 


( OPENF ) , A 


EB88 


3A EE4B 


* 


LD 


A, (IOC) 


EB8B 


FE 4F 




CP 


'O’ 


EB8D 


C0 




RET 


NZ 


EB8E 


3A EE4A 




LD 


A, (ECODE) 


EB9 1 


FE 20 




CP 


20H 


EB93 


C8 




RET 


Z 


EB9 4 


CD EDCD 




CALL 


PPUTC ; TX ECODE 


EB97 


C9 




RET 




EB98 


3A EE6A 


LOC: 


LD 


A, (QLEN) 


EB9B 


77 




LD 


(HL) ,A 


EB9C 


23 




INC 


HL 


EB9D 


36 00 




LD 


(HL) ,0 ; RET SIZE 


EB9F 


C9 




RET 








; BREAK 


B , A , F 




EBA0 


3A EE6A 


QEOF : 


LD 


A , ( QLEN ) 


EBA3 


B7 




OR 


A 


EBA4 


C8 




RET 


Z ; EMPTY 


EBA5 


3A EE4A 




LD 


A, (ECODE) 


EBA8 


FE 20 




CP 


20H 


EBAA 


C8 




RET 


Z ; NO ECODE 


EBAB 


E5 




PUSH 


HL 


EBAC 


2A EE68 




LD 


HL, (TAIL) 


EBAF 


46 




LD 


B , ( HL ) ; NOZOKU 


EBB0 


El 




POP 


HL 


EBB1 


B8 




CP 


B 


EBB2 


28 02 




JR 


Z , QEOF1 


EBB4 


AF 




XOR 


A ; SET Z 


EBB5 


C9 




RET 




EBB6 


F6 FF 


QEOF1 : 


OR 


0FFH ;SET NZ 


EBB8 


C9 




RET 




EBB9 


CD EBA0 


EOF: 


CALL 


QEOF 


EBBC 


11 0000 




LD 


DE , 0 


EBBF 


28 01 




JR 


Z , EOF1 


EBC1 


IB 




DEC 


DE 


EBC2 


73 


EOF1 : 


LD 


(HL) ,E 


EBC3 


23 




INC 


HL 


EBC4 


72 




LD 


(HL) , D 


EBC5 


C9 




RET 




EBC6 


F3 


INTRSR : 


DI 


; INT ROUTINE 


EBC7 


F5 




PUSH 


AF 


EBC8 


C5 




PUSH 


BC 


EBC9 


D5 




PUSH 


DE 


EBCA 


E5 




PUSH 


HL 


EBCB 


01 1F99 


[ 


LD 


BC , ZSIO+ 1 


EBCE 


3E 01 


INTR1 : 


LD 


A, 1 


EBD0 


ED 79 




OUT 


( C ) , A ;RR1 


EBD2 


ED 78 




IN 


A, (C) 


EBD4 


0B 


* 


DEC 


BC 


EBD5 


ED 78 




IN 


A, (C) 


EBD7 


2A EE66 




LD 


HL, (HEAD) 


EBDA 


77 




LD 


(HL) ,A 


EBDB 


23 




INC 


HL 


EBDC 


E5 




PUSH 


HL 


EBDD 


01 EEEB 




LD 


BC , Q1 


EBE0 


B7 




OR 


A 


EBE1 


ED 42 




SBC 


HL , BC 


EBE3 


El 




POP 


HL 


EBE4 


20 03 




JR 


NZ , INTR2 
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EBE6 


21 


EE6B 




LD 


HL,Q0 ; QUE 


i 


EBE9 


22 


EE66 


INTR2 : 


LD 


(HEAD) , HL 




EBEC 


21 


EE6A 




LD 


HL.QLEN 




EBEF 


34 






INC 


(HL) 




EBF0 


FE 


13 


* 


CP 


XOFF 




EBF2 


20 


05 




JR 


NZ , INTR3 




EBF4 


32 


EE62 




LD 


( LASTX ) , A ; GET 


XOFF 


EBF7 


18 


08 




JR 


INTR4 




EBF9 


FE 


11 


INTR3 : 


CP 


XON 




EBFB 


20 


04 




JR 


NZ , INTR4 




EBFD 


AF 






XOR 


A 




EBFE 


32 


EE62 




LD 


(LASTX), A ; GET 


XON 


EC0 1 


3A 


EE6A 


INTR4 : 


LD 


A, ( QLEN ) 




EC04 


3C 






INC 


A 




EC05 


FE 


40 




CP 


QMAX 




EC07 


D4 


ECU 




CALL 


NC, SWAIT ; SEND WAI' 


EC0A 


El 




1 


POP 


HL 




EC0B 


D1 






POP 


DE 




EC0C 


Cl 






POP 


BC 




EC0D 


FI 






POP 


AF 




EC0E 


FB 






El 






EC0F 


ED 


4D 




RETI 






ECU 


01 


1F99 


SWAIT : 


LD 


BC , ZSIO+ 1 




EC1 4 


3A 


EE45 




LD 


A, ( PARAM+0 ) 




EC 17 


FE 


4E 




CP 


’N’ 




EC 19 


C8 






RET 


Z ; NOTHING 




EC 1 A 


FE 


52 




CP 


' R ' 




EC 1C 


28 


11 




JR 


Z , SWAIT1 




EC1E 


FE 


58 




CP 


'X’ 




EC20 


C0 






RET 


NZ 




EC2 1 


3A 


EE63 




LD 


A, ( XFLAG ) 




EC24 


B7 






OR 


A 




EC25 


C0 






RET 


NZ 




EC26 


3E 


13 




LD 


A , XOFF ; X CTRL 




EC28 


32 


EE63 




LD 


(XFLAG) , A 




EC2B 


CD 


ED7 7 




CALL 


PPUTC0 




EC2E 


C9 






RET 






EC2F 


01 


1F99 


SWAIT1 : 


LD 


BC , ZSIO+ 1 




EC32 


3E 


05 




LD 


A, 5 




EC 3 4 


ED 


79 




OUT 


(C) , A 




EC36 


3A 


EE54 




LD 


A, (WR5+1 ) 




EC39 


E6 


FD 




AND 


11111101B ;RES 


RTS 


EC3B 


ED 


79 




OUT 


(C) , A 




EC3D 


C9 






RET 






EC3E 


3A 


EE45 


SOK: 


LD 


A, (PARAM+0) 




EC4 1 


FE 


4E 




CP 


»N» 




EC43 


C8 






RET 


Z 




EC44 


FE 


52 


* 


CP 


’R’ 




EC46 


28 


12 




JR 


Z , SOK1 




EC48 


FE 


58 




CP 


'X* 




EC4A 


C0 






RET 


NZ 




EC4B 


3A 


EE6 3 




LD 


A, (XFLAG) 




EC4E 


B7 






OR 


A 




EC4F 


C8 






RET 


Z 




EC 50 


AF 






XOR 


A 




EC5 1 


32 


EE63 




LD 


(XFLAG) , A 




EC54 


3E 


11 




LD 


A, XON 




EC56 


CD 


ED7 7 




CALL 


PPUTC0 




EC59 


C9 






RET 






EC5A 


01 


1F99 


SOK1 : 


LD 


BC , ZSIO+ 1 




EC5D 


3E 


05 




LD 


A, 5 




EC5F 


ED 


79 




OUT 


(C) , A 




EC6 1 


3A 


EE54 




LD 


A, (WR5+1 ) 




EC64 


F6 


02 




OR 


000000 1 0B ; SET 


RTS 


EC66 


ED 


79 




OUT 


(C) , A 




EC68 


C9 






RET 






EC69 


CD 


ECA4 


XGETC : 


CALL 


PGETC ; GET CHAR 




EC6C 


47 






LD 


B , A ; SAVE 




EC6D 


3A 


EE46 




LD 


A, ( PARAM+1 ) 




EC7 0 


FE 


53 




CP 


’S’ 




EC7 2 


20 


24 




JR 


NZ , XGETC4 




EC7 4 


3A 


EE6 1 




LD 


A, (MASK) 




EC7 7 


FE 


7F 




CP 


1 1 1 1 1 1 IB 




EC79 


20 


ID 




JR 


NZ , XGETC4 





warn a i 







; S AND 


7 BITS 




EC7B 


3A EE65 




LD 


A , ( RKIN ) 


EC7E 


B7 




OR 


A 


EC7F 


78 




LD 


A , B 


EC80 


20 06 




JR 


NZ , XGETC1 


EC82 


FE 0E 




CP 


SO ;TO KANA MODE 


EC84 


28 07 




JR 


Z , XGETC2 


EC86 


18 10 




JR 


XGETC4 


EC88 


FE 0F 


XGETC1 : 


CP 


SI 


EC8A 


20 06 




JR 


NZ , XGETC3 


EC8C 


AF 




XOR 


A 


EC8D 


32 EE65 


XGETC2 : 


LD 


(RKIN), A ; CLEAR 


EC90 


18 D7 




JR 


XGETC ; AGAIN 


EC92 


FE 20 


XGETC3 : 


CP 


0A0H-080H 


EC94 


38 02 




JR 


C , XGETC4 


EC96 


CB F8 




SET 


7 , B ; TO KANA 


EC98 


78 


XGETC4 : 


LD 


A , B 


EC99 


C9 




RET 




EC9A 


E5 


PGETC 1 : 


PUSH 


HL ; RETURN CHAR 


EC9B 


CD ECA4 




CALL 


PGETC 


EC9E 


El 




POP 


HL 


EC9F 


77 




LD 


(HL) ,A 


ECA0 


23 




INC 


HL 


ECAl 


36 00 




LD 


(HL) ,0 


ECA3 


C9 




RET 




ECA4 


CD 0330 


PGETC : 


CALL 


QBREAK 


ECA7 


CA EE2A 




JP 


Z, BREAK ; BREAK? 


ECAA 


3A EE6A 




LD 


A, ( QLEN ) 


ECAD 


B7 




OR 


A 


ECAE 


28 F4 




JR 


Z, PGETC 


ECB0 


F3 


* 


DI 




ECB1 


3A EE6A 




LD 


A, (QLEN) ; RE-GET 


ECB4 


5F 




LD 


E , A ; SAVE QLEN 


ECB5 


2A EE68 




LD 


HL, (TAIL) 


ECB8 


3A EE61 




LD 


A, (MASK) 


ECBB 


A6 




AND 


(HL) 


ECBC 


57 




LD 


D , A ; GET DATA 


ECBD 


23 




INC 


HL 


ECBE 


E5 




PUSH 


HL 


ECBF 


01 EEEB 




LD 


BC , Q 1 


ECC2 


B7 




OR 


A 


ECC3 


ED 4 2 




SBC 


HL , BC 


ECC5 


El 




POP 


HL 


ECC6 


20 03 




JR 


NZ , GETC1 


ECC8 


21 EE6B 




LD 


HL , Q0 ;QUE ! 


ECCB 


22 EE68 


GETC1 : 


LD 


(TAIL) , HL 


ECCE 


7B 




LD 


A , E ; GET QLEN 


ECCF 


3D 




DEC 


A 


ECD0 


32 EE6A 




LD 


(QLEN) , A 


ECD3 


FE 30 




CP 


QMAX-16 


ECD5 


D5 




PUSH 


DE 


ECD6 


DC EC3E 




CALL 


C , SOK ; SEND OK 


ECD9 


FB 




El 




ECDA 


D 1 




POP 


DE 


ECDB 


7A 




LD 


A , D 


ECDC 


C9 




RET 




ECDD 


EB 


LINPUT: 


EX 


DE , HL 


ECDE 


E5 




PUSH 


HL 


ECDF 


23 




INC 


HL 


ECE0 


78 




LD 


A , B 


ECE1 


FE 02 




CP 


2 


ECE3 


DA EE26 




JP 


C , ERR ; NO SPACE 


ECE6 


05 




DEC 


B ; DEC COUNTER 


ECE7 


0E 00 




LD 


C,0 


ECE9 


E5 


LIP1 : 


PUSH 


HL 


ECEA 


C5 




PUSH 


BC ; SAVE COUNTER 


ECEB 


CD 0330 


LIP1L : 


CALL 


QBREAK ; BREAK? 


ECEE 


CA EE2A 




JP 


Z , BREAK 


ECF1 


3A EE6A 




LD 


A, (QLEN) 


ECF4 


B7 




OR 


A 


ECF5 


28 F 4 




JR 


Z , LIP1L 


ECF7 


CD EBA0 




CALL 


QEOF 


ECFA 


28 0A 




JR 


Z , LIP1L1 






; GET EOF 





uo iSBtcihSXl 



ECFC 


Cl 




POP 


BC 


ECFD 


El 




POP 


HL 


ECFE 


79 




LD 


A , C 


ECFF 


FE 0D 




CP 


CR 


ED01 


20 2A 




JR 


NZ , LIPL2 


ED03 


2B 




DEC 


HL 


ED04 


18 27 




JR 


LIPL2 ; SUTE CR 


ED06 


CD EC69 


LIP1L1 : 


: CALL 


XGETC 


ED09 


Cl 




POP 


BC 


ED0A 


El 


POP 

; 1 LINE? 


HL 


ED0B 


F5 




PUSH 


AF 


ED0C 


3A EE48 




LD 


A, (PARAM+3) 


ED0F 


FE 4C 




CP 


’L’ 


EDI 1 


28 07 




JR 


Z , LIPL1 


EDI 3 


FI 




POP 


AF 


ED 14 


FE 0D 




CP 


CR 


ED 16 


28 15 




JR 


Z.LIPL2 


EDI 8 


18 0E 




JR 


LIP2 


ED1A 


79 


LIPL1 : 


LD 


A , C 


ED IB 


FE 0D 




CP 


CR 


ED1D 


20 08 




JR 


NZ , LIPL3 


ED IF 


FI 




POP 


AF 


ED20 


FE 0A 




CP 


LF 


ED22 


20 04 




JR 


NZ , LIP2 


ED24 


2B 




DEC 


HL 


ED25 


18 06 




JR 


LIPL2 


ED27 


FI 


LIPL3 : 


POP 


AF 


ED28 


77 


LIP2 : 


LD 


(HL) ,A 


ED29 


4E 


LIP3 : 


LD 


C, (HL) ; LAST CHAR 


ED2A 


23 




INC 


HL 


ED2B 


10 BC 




DJNZ 


LIP1 ; FULL? 


ED2D 


D1 


LIPL2 : 


POP 


DE 


ED2E 


B7 




OR 


A 


ED2F 


ED 52 




SBC 


HL , DE 


ED3 1 


EB 




EX 


DE , HL 


ED32 


ID 




DEC 


E 


ED33 


73 




LD 


( HL ) , E ; STORE LEN 


ED34 


C9 


; INPUT 


RET 

n CHAR 




ED35 


D5 


INPUTN : 


: PUSH 


DE ; SAVE ADDR 


ED36 


EB 




EX 


DE , HL 


ED37 


7E 




LD 


A, (HL) 


ED38 


23 




INC 


HL 


ED39 


B8 




CP 


B 


ED3A 


D2 EE26 


; A<B 


JP 


NC , ERR ; TOO SHORT 


ED3D 


05 




DEC 


B 


ED3E 


B7 




OR 


A 


ED3F 


28 12 




JR 


Z.IPN2 ; REQUEST 0 CHAR 


ED4 1 


47 




LD 


B , A ; COUNTER 


ED42 


0E 00 




LD 


C , 0 ; LEN 


ED44 


C5 


IPN1 : 


PUSH 


BC 


ED4 5 


E5 




PUSH 


HL 


ED46 


CD EC69 




CALL 


XGETC 


ED49 


El 




POP 


HL 


ED4A 


Cl 




POP 


BC 


ED4B 


77 




LD 


( HL ) , A ; STORE CODE 


ED4C 


23 




INC 


HL 


ED4D 


0C 




INC 


C 


ED4E 


10 F4 




DJNZ 


IPN1 


ED50 


El 




POP 


HL ;TOP ADDR. 


ED5 1 


71 




LD 


( HL ) , C ; STORE LEN 


ED52 


C9 




RET 




ED53 


D1 


IPN2 : 


POP 


DE 


ED54 


12 




LD 


( DE ) , A ; STORE 0 


ED55 


C9 




RET 




ED56 


CD ED68 


PRINT: 


CALL 


PRINTS 


ED59 


3E 0D 




LD 


A , CR 


ED5B 


CD EDCD 




CALL 


PPUTC 


ED5E 


3A EE47 




LD 


A, ( PARAM+2 ) 


ED6 1 


FE 4C 




CP 


’L’ 


ED63 


C0 




RET 


NZ ;’C' 


ED64 


3E 0A 




LD 


A , LF ; ’ L 1 


ED66 


18 65 




JR 


PPUTC 



*7^ a m ui 



ED68 


78 




PRINTS: 


LD 


A , B 


ED69 


B7 






OR 


A ; CK LEN 


ED6A 


C8 






RET 


Z 


ED6B 


1A 




PUTSL : 


LD 


A , ( DE ) 


ED6C 


13 






INC 


DE 


ED6D 


C5 






PUSH 


BC 


ED6E 


D5 






PUSH 


DE 


ED6F 


CD 


ED93 




CALL 


PUTC 


ED7 2 


D1 






POP 


DE 


ED7 3 


Cl 






POP 


BC 


ED7 4 


10 


F5 




DJNZ 


PUTSL 


ED7 6 


C9 






RET 




ED7 7 


F5 




PPUTC0 : 


PUSH 


AF 


ED7 8 


01 


1F99 




LD 


BC , ZSIO+ 1 


ED7B 


3E 


10 


PUTCL0 : 


LD 


A , 10H ; RESET STAT 


ED7D 


ED 


79 




OUT 


(C) ,A 


ED7F 


ED 


78 




IN 


A, (C) ; GET RR0 


ED81 


CB 


57 




BIT 


2, A ; TX BUFF 


ED83 


28 


F6 




JR 


Z , PUTCL0 


ED85 


CD 


EE09 


’ 


CALL 


CHTXOK ; TX OK? 


ED88 


28 


62 




JR 


Z , PUTOK 


ED8A 


3E 


10 




LD 


A,10H ; STAT RESET 


ED8C 


ED 


79 




OUT 


(C) ,A 


ED8E 


18 


EB 




JR 


PUTCL0 ; LOOP 


ED90 


7E 




PPUTC1 : 


LD 


A, (HL) 


ED9 1 


18 


3A 




JR 


PPUTC 


ED9 3 


47 




PUTC : 


LD 


B, A 


ED94 


3A 


EE46 




LD 


A, (PARAM+1 ) 


ED97 


FE 


53 




CP 


’S’ 


ED99 


20 


31 




JR 


NZ , PUTC0 


ED9B 


3A 


EE61 


* 


LD 


A , ( MASK ) 


ED9E 


FE 


7F 




CP 


1 1 1 1 1 1 IB 


EDA0 


20 


2A 




JR 


NZ , PUTC0 








; ’S’ AND 7 BITS 




EDA2 


CB 


78 




BIT 


7 , B 


EDA 4 


28 


15 




JR 


Z, NKANA ; NOT KANA 


EDA6 


3A 


EE64 




LD 


A, ( TKIN ) 


EDA9 


B7 






OR 


A 


EDAA 


20 


0A 




JR 


NZ, IKANA 


EDAC 


C5 






PUSH 


BC ; SAVE IT 


EDAD 


3E 


0F 




LD 


A, SI ; SHIFT IN 


EDAF 


CD 


EDCD 




CALL 


PPUTC 


EDB2 


32 


EE64 




LD 


(TKIN) , A 


EDB5 


Cl 






POP 


BC 


EDB6 


78 




IKANA: 


LD 


A , B 


EDB7 


E6 


7F 




AND 


7FH ; SEND 7 BITS 


EDB9 


18 


12 




JR 


PPUTC 


EDBB 


3A 


EE64 


NKANA: 


LD 


A, (TKIN) 


EDBE 


B7 






OR 


A 


EDBF 


28 


0B 




JR 


Z , PUTC0 ;NO KANA MODE 


EDC 1 


C5 




* 


PUSH 


BC ; SAVE IT 


EDC2 


3E 


0E 




LD 


A, SO ; SHIFT OUT 


EDC4 


CD 


EDCD 




CALL 


PPUTC ; PUT ANY HOW 


EDC7 


AF 






XOR 


A 


EDC8 


32 


EE64 




LD 


(TKIN) , A 


EDCB 


Cl 






POP 


BC ; B=IT 


EDCC 


78 




PUTC0 : 


LD 


A , B ; DATA TO TX 


EDCD 


F5 




PPUTC : 


PUSH 


AF 


EDCE 


01 


1F99 




LD 


BC , ZSIO+ 1 


EDD1 


CD 


0330 


PUTCL : 


CALL 


QBREAK ; BREAK? 


EDD4 


CA 


EE2A 




JP 


Z, BREAK 


EDD7 


3E 


10 




LD 


A , 10H ; RESET STAT 


EDD9 


ED 


79 




OUT 


(C) ,A 


EDDB 


ED 


78 




IN 


A, (C) ; GET RR0 


EDDD 


CB 


57 




BIT 


2 , A ; TX BUFF 


EDDF 


28 


F0 




JR 


Z , PUTCL 


EDE1 


CD 


EE09 


* 


CALL 


CHTXOK ; TX OK? 


EDE4 


28 


06 




JR 


Z , PUTOK 


EDE6 


3E 


10 




LD 


A , 1 0H ; STAT RESET 
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EDE8 


ED 79 




OUT 


( C ) , A 




EDEA 


18 E5 




JR 


PUTCL 


; LOOP 


EDEC 


0B 


PUTOK : 


DEC 


BC 


; DATA PORT 


EDED 


D1 




POP 


DE 


; D=CHAR 


EDEE 


3A EE6 1 




LD 


A, (MASK) 




EDF1 


A2 




AND 


D 




EDF2 


ED 79 




OUT 


(C) , A 


;TX DATA 


EDF4 


3A EE6A 


* 


LD 


A, (QLEN) 




EDF7 


B7 




OR 


A 


; EMPTY? 


EDF8 


C8 




RET 


Z 








•DROP 


XON.XOFF 






EDF9 


2A EE68 


PEND0 : 


LD 


HL, (TAIL) 


EDFC 


7E 




LD 


A, (HL) 


; NOZOKU 


EDFD 


FE 11 




CP 


XON 




EDFF 


28 03 




JR 


Z , PEND1 




EE0 1 


FE 13 




CP 


XOFF 




EE0 3 


C0 




RET 


NZ 




EE04 


CD EC9A 


PEND1 : 


CALL 


PGETC1 


; DROP 


EE07 


18 F0 




JR 


PEND0 




EE09 


57 


CHTXOK 


: LD 


D , A 


; SAVE RR0 


EE0A 


3A EE4 5 




LD 


A, ( PARAM+0 ) 


EE0D 


FE 4E 




CP 


’N’ 


; NO CON 


EE0F 


C8 




RET 


Z 




EE10 


FE 52 




CP 


’R’ 


; RTS 


EE 1 2 


20 05 




JR 


NZ, CHX 




EE 14 


7A 




LD 


A , D 




EE1 5 


2F 




CPL 




; REVERSE 


EE16 


CB 6F 




BIT 


5, A 


;RTS 


EE 18 


C9 




RET 






EE19 


FE 58 


CHX : 


CP 


’X’ 




EE1B 


28 02 




JR 


Z , CHX1 




EE1D 


AF 




XOR 


A 




EE1E 


C9 




RET 






EE IF 


F3 


CHX 1 : 


DI 




; ENGIMON 


EE20 


3A EE62 




LD 


A, ( LASTX ) 


EE23 


B7 




OR 


A 




EE24 


FB 




El 






EE25 


C9 




RET 






EE26 


3E 05 


ERR: 


LD 


A, 5 ; 


; ILL FUNC 


EE28 


DD E9 




JP 


(IX) 




EE2A 


F3 


BREAK : 


DI 






EE2B 


C3 1FCA 




JP 


BBREAK 




EE2E 




CTR: 


DS 


1 ; 


CTC COUNTER 


EE2F 


58 52 4E 00 


PLIST: 


DB 


* XRN ’ ,0 




EE33 


53 4E 00 




DB 


’SN’ , 0 




EE36 


43 4C 00 




DB 


’CL* ,0 




EE39 


43 4C 00 




DB 


’CL' ,0 




EE3C 


4A 4E 00 




DB 


’ JN’ ,0 




EE3F 


4E 4E 4C 4C 


PDFLT : 


DB 


’ NNLLN ’ . 20H 


EE43 


4E 20 










EE4 5 




PARAM : 


DS 


5 ; 


P AREA 


EE4A 




ECODE : 


DS 


1 ; 


5 + 1 = 6 


EE4B 




IOC: 


DS 


1 ; 


OPEN MODE FLAG 


EE4C 


18 


SIOSA : 


DB 


00011000B 


i ; WR0 


EE4D 


01 10 


WR1 : 


DB 


1 , 10H 




EE4F 


02 00 


WR2 : 


DB 


2 , 00H 




EE5 1 


04 00 


WR4 : 


DB 


4.00H 




EE53 


05 00 


WR5 : 


DB 


5 , 00H 




EE 5 5 


06 00 


WR6 : 


DB 


6 , 00H 




EE57 


07 00 


WR7 : 


DB 


7 , 00H 




EE59 


03 00 


WR3 : 


DB 


3 , 00H 




EE5B 


18 


SIOSB : 


DB 


18H 




EE5C 


01 00 




DB 


1 ,00H 




EE5E 


02 5C 




DB 


2 , INTRSV 




EE60 


00 


OPENF : 


DB 


0 ; 


OPEB FLAG 



w,7m a \t U3 



EE6 1 


MASK: 


DS 


1 


; DATA MASK 


EE62 


LASTX : 


DS 


1 


; R FLAG 


EE63 


XFLAG : 


DS 


1 


; T FLAG 


EE64 


TKIN : 


DS 


1 


; R KANA FLAG 


EE65 


RKIN : 


DS 


1 


; T KANA FLAG 


EE66 


HEAD: 


DS 


2 


;QUE HEAD 


EE68 


TAIL: 


DS 


2 


; QUE TAIL 


EE6A 


QLEN: 


DS 


1 


; Q LENGTH 


EE6B 


Q0 : 


DS 


QMAXX 




EEEB 


Ql: 










9 


END 
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EA00 


C3 


IE 


EA 


C3 


84 


EB 


C3 


DD 


9D 


EA08 


EC 


C3 


35 


ED 


C3 


68 


ED 


C3 


AC 


EA10 


56 


ED 


C3 


98 


EB 


C3 


B9 


EB 


F0 


EA18 


C3 


9A 


EC 


C3 


90 


ED 


3A 


60 


23 


EA20 


EE 


B7 


28 


07 


D5 


C5 


CD 


84 


BF 


EA28 


EB 


Cl 


D1 


3E 


FF 


32 


60 


EE 


3A 


EA30 


3D 


20 


FD 


F3 


21 


C6 


EB 


22 


41 


EA38 


5C 


00 


FB 


EB 


78 


B7 


CA 


26 


61 


EA40 


EE 


05 


7E 


23 


FE 


49 


28 


0B 


0E 


EA48 


FE 


4F 


28 


07 


FE 


43 


28 


03 


E8 


EA50 


C3 


26 


EE 


32 


4B 


EE 


78 


D6 


90 


EA58 


04 


DA 


26 


EE 


FE 


07 


D2 


26 


EF 


EA60 


EE 


4F 


7E 


23 


D6 


30 


FE 


07 


E9 


EA68 


D2 


26 


EE 


16 


D0 


D6 


02 


F5 


99 


EA7 0 


30 


01 


AF 


B7 


28 


05 


CB 


3A 


C9 


EA78 


3D 


18 


F8 


7A 


32 


2E 


EE 


FI 


06 


SUM: 


1A 


E2 


8C 


E2 


74 


31 


D8 


D6 6C5A 


EA80 


16 


40 


30 


07 


16 


80 


3C 


28 


87 


EA88 


02 


16 


C0 


5A 


7E 


23 


16 


00 


E9 


EA90 


FE 


4E 


28 


0B 


14 


FE 


4F 


28 


08 


EA98 


06 


14 


FE 


45 


C2 


26 


EE 


7B 


AE 


EAA0 


B2 


5F 


7E 


23 


D6 


35 


DA 


26 


BD 


EAA8 


EE 


FE 


04 


D2 


26 


EE 


F5 


16 


El 


EAB0 


E0 


B7 


28 


05 


CB 


22 


3D 


20 


0E 


EAB8 


FB 


7A 


2F 


32 


61 


EE 


FI 


B7 


CD 


EAC0 


EA 


C5 


EA 


EE 


03 


0F 


0F 


F6 


9E 


EAC8 


01 


32 


5A 


EE 


0F 


F6 


80 


F6 


F6 


EAD0 


02 


F6 


08 


32 


54 


EE 


7E 


23 


15 


EAD8 


D6 


31 


DA 


26 


EE 


FE 


03 


D2 


C8 


EAE0 


26 


EE 


3C 


87 


87 


B3 


32 


52 


95 


EAE8 


EE 


C5 


E5 


21 


3F 


EE 


11 


45 


3C 


EAF0 


EE 


01 


06 


00 


ED 


B0 


EB 


D9 


56 


EAF8 


El 


Cl 


11 


2F 


EE 


AF 


08 


79 


00 


SUM: 


3D 


D9 


4D 


E8 


87 


EB 


D2 


A8 CC3B 


EB00 


B7 


28 


IF 


FE 


06 


20 


02 


0D : 


: 31 


EB08 


08 


46 


23 


1A 


13 


B7 


CA 


26 : 


: 45 


EB 1 0 


EE 


B8 


20 


F7 


D9 


12 


D9 


1A : 


: 9B 


EB18 


13 


B7 


20 


FB 


D9 


13 


D9 


0D : 


: B7 


EB20 


20 


E7 


08 


B7 


28 


10 


7E 


FE : 


: 7 A 


EB28 


40 


DA 


26 


EE 


FE 


80 


D2 


26 : 


: A 4 


EB30 


EE 


E6 


IF 


D9 


12 


D9 


F3 


CD : 


: 77 


EB38 


6A 


EB 


01 


A9 


IF 


3E 


47 


ED : 


: 90 


EB40 


79 


3A 


2E 


EE 


ED 


79 


21 


4C : 


: A2 


EB48 


EE 


01 


99 


IF 


3E 


0F 


CD 


63 : 


: 24 


EB50 


EB 


21 


5B 


EE 


01 


9B 


IF 


3E : 


: 4E 


EB58 


05 


CD 


63 


EB 


3E 


FF 


32 


60 : 


: EF 


EB60 


EE 


FB 


C9 


04 


ED 


A3 


3D 


20 : 


: A3 


EB68 


FA 


C9 


AF 


32 


6A 


EE 


21 


6B : 


: 88 



EB7 0 


EE 


22 


66 


EE 


22 


68 


EE 


32 : 


0E 


EB7 8 


62 


EE 


32 


63 


EE 


32 


64 


EE : 


57 


SUM: 


07 


6C 


65 


9E 


F3 


F0 


F7 


30 1771 


EB80 


32 


65 


EE 


C9 


AF 


32 


60 


EE 


7D 


EB88 


3A 


4B 


EE 


FE 


4F 


C0 


3A 


4A 


04 


EB90 


EE 


FE 


20 


C8 


CD 


CD 


ED 


C9 


24 


EB98 


3A 


6A 


EE 


77 


23 


36 


00 


C9 


2B 


EBA0 


3A 


6 A 


EE 


B7 


C8 


3A 


4A 


EE 


83 


EBA8 


FE 


20 


C8 


E5 


2A 


68 


EE 


46 


91 


EBB0 


El 


B8 


28 


02 


AF 


C9 


F6 


FF 


30 


EBB8 


C9 


CD 


A0 


EB 


11 


00 


00 


28 


5A 


EBC0 


01 


IB 


73 


23 


72 


C9 


F3 


F5 


D5 


EBC8 


C5 


D5 


E5 


01 


99 


IF 


3E 


01 


77 


EBD0 


ED 


79 


ED 


78 


0B 


ED 


78 


2A 


65 


EBD8 


66 


EE 


77 


23 


E5 


01 


EB 


EE 


AD 


EBE0 


B7 


ED 


42 


El 


20 


03 


21 


6B 


76 


EBE8 


EE 


22 


66 


EE 


21 


6A 


EE 


34 


11 


EBF0 


FE 


13 


20 


05 


32 


62 


EE 


18 


D0 


EBF8 


08 


FE 


11 


20 


04 


AF 


32 


62 


7E 


SUM: 


3A 


9E 


FD 


42 


12 


B4 


78 


4C 99CD 


EC00 


EE 


3A 


6A 


EE 


3C 


FE 


40 


D4 


CE 


EC08 


11 


EC 


El 


D1 


Cl 


FI 


FB 


ED 


49 


EC10 


4D 


01 


99 


IF 


3A 


45 


EE 


FE 


71 


EC 18 


4E 


C8 


FE 


52 


28 


11 


FE 


58 


F5 


EC20 


C0 


3A 


63 


EE 


B7 


C0 


3E 


13 


13 


EC28 


32 


63 


EE 


CD 


77 


ED 


C9 


01 


7E 


EC30 


99 


IF 


3E 


05 


ED 


79 


3A 


54 


EF 


EC38 


EE 


E6 


FD 


ED 


79 


C9 


3 A 


45 


7F 


EC40 


EE 


FE 


4E 


C8 


FE 


52 


28 


12 


8C 


EC48 


FE 


58 


C0 


3A 


63 


EE 


B7 


C8 


20 


EC50 


AF 


32 


63 


EE 


3E 


11 


CD 


77 


C5 


EC58 


ED 


C9 


01 


99 


IF 


3E 


05 


ED 


9F 


EC60 


79 


3A 


54 


EE 


F6 


02 


ED 


79 


53 


EC68 


C9 


CD 


A4 


EC 


47 


3A 


46 


EE 


DB 


EC7 0 


FE 


53 


20 


24 


3A 


61 


EE 


FE 


1C 


EC7 8 


7F 


20 


ID 


3A 


65 


EE 


B7 


78 


78 


SUM: 


5A 


5C 


15 


9E 


8D 


4E 


2B 


DF 9564 


EC80 


20 


06 


FE 


0E 


28 


07 


18 


10 


89 


EC88 


FE 


0F 


20 


06 


AF 


32 


65 


EE 


67 


EC90 


18 


D7 


FE 


20 


38 


02 


CB 


F8 


0A 


EC98 


78 


C9 


E5 


CD 


A4 


EC 


El 


77 


DB 


ECA0 


23 


36 


00 


C9 


CD 


30 


03 


CA 


EC 


ECA8 


2A 


EE 


3A 


6A 


EE 


B7 


28 


F4 


7D 


ECB0 


F3 


3A 


6A 


EE 


5F 


2A 


68 


EE 


64 


ECB8 


3A 


61 


EE 


A6 


57 


23 


E5 


01 


8F 


ECC0 


EB 


EE 


B7 


ED 


42 


El 


20 


03 


C3 



144 tSStdttliXl 



ECC8 


21 


6B 


EE 


22 


68 


EE 


7B 


3D 


: AA 




ED98 


53 


20 


31 


3A 


61 


EE 


FE 


7F 


AA 


ECD0 


32 


6 A 


EE 


FE 


30 


D5 


DC 


3E 


: A 7 




EDA0 


20 


2A 


CB 


78 


28 


15 


3A 


64 


68 


ECD8 


EC 


FB 


D 1 


7A 


C9 


EB 


E5 


23 


: EE 




EDA8 


EE 


B7 


20 


0A 


C5 


3E 


0F 


CD 


AE 


ECE0 


78 


FE 


02 


DA 


26 


EE 


05 


0E 


: 79 




EDB0 


CD 


ED 


32 


64 


EE 


Cl 


78 


E6 


5D 


ECE8 


00 


E5 


C5 


CD 


30 


03 


CA 


2A 


: 9E 




EDB8 


7F 


18 


12 


3A 


64 


EE 


B7 


28 


14 


ECF0 


EE 


3A 


6A 


EE 


B7 


28 


F4 


CD 


: 20 




EDC0 


0B 


C5 


3E 


0E 


CD 


CD 


ED 


AF 


52 


ECF8 


A0 


EB 


28 


0A 


Cl 


El 


79 


FE 


: D6 




EDC8 


32 


64 


EE 


Cl 


78 


F5 


01 


99 


4C 
























EDD0 


IF 


CD 


30 


03 


C A 


2A 


EE 


3E 


3F 


SUM: 


58 


3A 


50 


EE 


95 


E4 


39 


BE CDF1 




EDD8 


10 


ED 


79 


ED 


78 


CB 


57 


28 


25 
























EDE0 


F0 


CD 


09 


EE 


28 


06 


3E 


10 


30 


ED00 


0D 


20 


2A 


2B 


18 


27 


CD 


69 


F7 




EDE8 


ED 


79 


18 


E5 


0B 


D1 


3A 


61 


DA 


ED08 


EC 


Cl 


El 


F5 


3A 


48 


EE 


FE 


FI 




EDF0 


EE 


A2 


ED 


79 


3A 


6A 


EE 


B7 


3F 


ED 1 0 


4C 


28 


07 


FI 


FE 


0D 


28 


15 


B4 




EDF8 


C8 


2A 


68 


EE 


7E 


FE 


11 


28 


FD 


ED18 


18 


0E 


79 


FE 


0D 


20 




IT 1 


p o 
























ED20 


FE 


0A 


20 


04 


2B 


18 


XJ O 
06 


r I 

FI 


Uo 

66 




SUM: 


CA 


40 


7A 


D2 


2F 


72 


2F 


93 6DF0 


ED28 


77 


4E 


23 


10 


BC 


D1 


B7 


ED 


29 
























ED30 


52 


EB 


ID 


73 


C9 


D5 


EB 


7E 


D4 




EE00 


03 


FE 


13 


C0 


CD 


9A 


EC 


18 


3F 


ED38 


23 


B8 


D2 


26 


EE 


05 


B7 


28 


A5 




EE08 


F0 


57 


3A 


45 


EE 


FE 


4E 


C8 


C8 


ED40 


12 


47 


0E 


00 


C5 


E5 


CD 


69 


47 




EE 1 0 


FE 


52 


20 


05 


7A 


2F 


CB 


6F 


58 


ED48 


EC 


El 


Cl 


77 


23 


0C 


10 


F4 


38 




EE 1 8 


C9 


FE 


58 


28 


02 


AF 


C9 


F3 


B4 


ED50 


El 


71 


C9 


D1 


12 


C9 


CD 


68 


FC 




EE20 


3A 


62 


EE 


B7 


FB 


C9 


3E 


05 


48 


ED58 


ED 


3E 


0D 


CD 


CD 


ED 


3A 


47 


40 




EE28 


DD 


E9 


F3 


C3 


CA 


IF 


15 


58 


D2 


ED60 


EE 


FE 


4C 


C0 


3E 


0A 


18 


65 


BD 




EE30 


52 


4E 


00 


53 


4E 


00 


43 


4C 


D0 


ED68 


78 


B7 


C8 


1A 


13 


C5 


D5 


CD 


8B 




EE38 


00 


43 


4C 


00 


4A 


4E 


00 


4E 


75 


ED7 0 


93 


ED 


D1 


Cl 


10 


F5 


C9 


F5 


D5 




EE40 


4E 


4C 


4C 


4E 


20 


CD 


83 


21 


C5 


ED7 8 


01 


99 


IF 


3E 


10 


ED 


79 


ED 


5A 




EE48 


47 


C3 


B3 


20 


18 


01 


10 


02 


08 
























EE50 


00 


04 


00 


05 


00 


06 


00 


07 


16 


SUM: 


0D 


24 


66 


AA 


33 


B7 


5D 


11 8D3D 




EE58 


00 


03 


00 


18 


01 


00 


02 


5C 


7A 
























EE60 


00 
















00 


ED80 


78 


CB 


57 


28 


F6 


CD 


09 


EE : 


7C 
























ED88 


28 


62 


3E 


10 


ED 


79 


18 


EB : 


41 




SUM: 


B8 


97 


FI 


8A 


CD 


80 


F9 


BF E0FD 


ED90 


7E 


18 


3A 


47 


3A 


46 


EE 


FE : 


83 

























l ) * b 7-3 9 =7 1* 



100 


CLEAR &HEA00 








110 


IF MEM$ ( &HEA00 , 3 ) < >HEXCHR$ ( " 


C3 IE EA’ 


’ ) LOADM "RS.OBJ" 


120 


DEFUSR0=&HEA00 : 


’ OPEN 


: STR 




130 


DEFUSR1 =&HEA00+3 : 


’CLOSE 


: * 




140 


DEFUSR2=&HEA00+6 : 


’LINPUT 


: STR 




150 


DEFUSR3 = &HEA00 + 9 : 


’ INPUTN 


:STR 




160 


DEFUSR4 = &HEA00+ 1 2 : 


’PRINTS 


:STR 




170 


DEFUSR5=&HEA00+ 1 5 : 


’PRINT 


:STR 




180 


DEFUSR6=&HEA00+ 1 8 : 


’LOC 


: INT 




190 


DEFUSR7 =&HEA00 + 2 1 : 


’EOF 


: INT 




200 


DEFUSR8=&HEA00+24 : 


’ PGETC 1 


: INT 




210 


DEFUSR9=&HEA00+27 : 


’ PPUTC 1 


: INT 




220 


» 








230 


A$=USR0( "06N83XNCCNZ" 


) 


: ’OPEN 




240 


A$=USR1 ( "" ) 




: ’CLOSE 




250 


C=10:A$=USR2(STRING$(C, " . " ) ) 


: ’LINPUT 




260 


C= 10 : A$=USR3 ( CHR$ ( C ) + STRINGS ( C , M . " ) ) : 


’INPUTN 


270 


A$=USR4( "STRINGS" ) 




: ’ SEND STRING 


280 


A$=USR5 ( "ONE LINE") 




: ’SEND 1 


LINE 


290 


A=USR6 ( 0 ) 




: ’ GET BUF 


SIZE 


300 


A = USR7 ( 0 ) 




: ’EOF ? 




310 


A=USR8 ( 0 ) 




: ’ GET 1 BYTE 


320 


A=USR9 ( 0 ) 




: ’ PUT 1 BYTE 


U* h 7 


-4 S t^7°P V =7 


A (100— 


210 'frit <) X Y 7-3 irlSIL*) 


100 


CLEAR &HEA00 









110 IF MEM$ ( &HEA00 , 3) < >HEXCHR$ ( "C3 IE EA" 
120 DEFUSR0=&HEA00 
130 DEFUSR1 =&HEA00+3 
140 DEFUSR2=&HEA00+6 



OPEN 


: STR 


CLOSE 


: * 


LINPUT 


: STR 



THEN LOADM "RS.OBJ’ 



% 7 M il \m 145 



150 


DEFUSR3=&HEA00+9 


: * INPUTN 


: STR 


160 


DEFUSR4=&HEA00+ 1 2 


*. ’PRINTS 


: STR 


170 


DEFUSR5=&HEA00+ 1 5 


: ’PRINT 


: STR 


180 


DEFUSR6=&HEA00+ 1 8 


: ’LOC 


: INT 


190 


DEFUSR7 = &HEA00 + 2 1 


: ’EOF 


: INT 


200 


DEFUSR8=&HEA00+24 


: ’ PGETC 1 


: INT 


210 


DEFUSR9=&HEA00+27 


: ’ PPUTC1 


: INT 



220 ’100 - 210 ** a*) A VXh3 ) *11 7fr 

230 A$=USR0( M C6N83XNCCNZ M ) :*OPEN 

240 L$ = ,,M 

250 IF USR7 ( 0 ) THEN PRINT "GET END": END ’EOF 
260 A=USR6 ( 0 ) : IF A=0 THEN 300 ’ LOC > 0? 

270 A$=USR3 ( CHR$ (1,0) ) 

280 A$=RIGHT$(A$,1) :A=ASC(A$) ’GET AND DISPLAY 

290 IF ( A> = &H20 ) OR (A=13) THEN PRINT A$;:GOTO 260 
300 C$=INKEY$ ( 0 ) ’READ KEY 

310 IF ( C$=CHR$ ( 0 ) ) OR (L$=C$) THEN 340 * YUUKOU ? 

320 IF C$=CHR$ (13) THEN A$=USR5 ( " " ) : GOTO 340 
330 A$=USR4(C$) * TX IT 

340 L$=C$ : GOTO 250 



Z tlZtZo 

£ tit XON, XOFF flJPC O X Tib £ o ^ o X Xtz A ,t * C ft X % tz<DT, TJH 
hflXntz XON /XOFF 

7TAX0N b L < XOFF Th^fzttb It, T E § Kf-s y ? U 
T}#'C£J ±5CltVsSo b L [a] E -5 £ TXON/XOFF hftfe©3— F feil-tf'TSo 

9 £&£££&*„ Z >%: 

lift til* o :<lB, fctfc* XON/XOFF (11„/13„) 

< Lfc©*:**, t tz CLOSE 

B#©iMFfc £ < #frA/£v>©T k 2b£ 0 turbo BASIC Tit TOJ Tt—tyU tztntzU^ 
y }t = i~F%&2>J:5lz%:^Xi'2>J:5T$>5tf, rCJ Tli'&bft^ X *)Th%> 0 ttzt 
(D'M<D3 z> F 3 — F o It E #©SM^b'T' 0 JWT*ib&o turbo BASIC Tit, 

LINPUT A* x > F 1 fr* J ^7 t/r ^ — V, 

INPUT ^,TXt!^WL^B%Utz^ It Pa- F**3fcfc E Lt fc, 

D^ — & t* E tto> Tv^ 5 0 £ d BASIC 07-a/^C 

# ot, y#v>T&5;bUT'U:&v>©’C, J: < 

33 o E £ Cl-CS^aiCfCo d©#®7°n;/-7 AtNi, TEOF ItZ-tlfrb fc&Iij-?- 5 tit 
v^r-^*txy Fa— F/iofc&- 1 fcilfj <t 5 iotFfClt 

INPUT $ & FTf © rxyFa — K£f£<&-fcBLTUI:ofcD1' £ EJ EOFT&< 

1^7 ©TJbSoffigUTi^fc/i L^L LINPUT Tx^ F 3 — F 

x>K3-F*»— flSfefcfc, Ztl&Mlti* -o t E0FT$>6„ 
%&1ii>&HWi>1t&, It^n V Sotgili USR8, USR9©r£r-?§c&tiiU * 

oe>o^>#ASC, E©“o©^j|g+LOC M 
Ifc+OPEN avyF + Jb^o/H # $ A&EUf, &5WUTL 

£-5©Ti>& 0 EV^ibUT, E®^ U 

til'ThZ, o 



146 t£8tlcai*Xl 




DM Atexx tf— !TC3 d-§> 



[ 1 * 8 * 






SO^Tli, Z80 7 7 i V -©4 J 7i^Ef;fm&'l£V'J tOpt/ps^if ^ Z80 DMA C 
oW'f’SOfliSo turbo Cb^ViTV»*v»**, ZtUZZtiTi± 

ht£fc\Z. ZKDJEi&S 7 turbo © XI CftU ± -5 h 7 S*<§nii, 

K#-r 5 t & S o CTC * SIO © X 5 C jR - K C*N: T I/O X a. y b c $ 1 1 

vs 5 S fc«T£&v:>©7*So 

DMA t Vi -5 ©li TDirect Memory Access] ©IIA^P*!^ TP SA/cHil7*So 7 
(D&frhtiUf, DMASW£7S LSIliDMAC (DMA Controller) fcnfMfiftS^if & 
©fiit, Zilog?±l±7^7 7^7 b 33a¥tiZLtzfr-Dtz]:5T&6o 7 £ T 33 i , S© 

5«r*-7te3££±S&it l&fcfS LSI T*S 0 M li Memory © M 3*UiB!l 

C7 4 77 7'J kttRfe-f, I/Otiiv^t^So c©jS, R»©4ViJ:-Co 
$T, Z80 7 r S U -C& PIO, CTC, SIO & £$**£**, DMA liS©^*) CPU t 
SfcOifitfcCfcD, ffeOJiSLSI fcte— l»*BL’rvi«©*P*So fcLfcDMAKHVi-C 

! Jfc£jtStt1*^fcSo7*Ui*H?*kVi'5 fc, DMA 
»rf'“^<E3lCMLTttCPU k|f^©SC»Cfi:-3'rvi5jii6J5f©T*5o 5~A, - 
na^SKflft^^ iTifeSo ®^OV'’C(C#Vi-CLt -5^, DMA t* 3x£: U CPU t 
ISI^tv^t, rDMAtfiiViTViSHtt, CPU*L±£ S£*S£f#&v>J HI?*©"?* 
So lEiSCW 5 k, CPU&z<X(7F7Xz<X, 7-7'TX, 3ylD-MX©=|0 
#») ^DMACH^UiStTLt 50-C*S o ti»U S F 7x7*5 if-© S 

— © kVi-51Ste*i: 9 L&ViS tctSo PL < M3SL*ViAli##X#4’CS>So 
S-fML D b DMA 74^£TS27(<:o^TlftBJILT3o < 0 

DMAKtlSittV^lJ, r-7 § CPU i DiSlScte3ll/7-77 

£ S k V » 5 Z k &Lft C tt & V » (CPU k |WI L *=>, X 0 S V i © * S tf LDIR * 5 OUTI * 9 7 
^oTLic AlfivUo S© raw] fcVi-5 S kte##CA*&S kft©T*S 0 Sft**— 
#lio§ 9 k^ffiCffiT < soli, 8 4 yf K74/t, 5 4 77©2HD£{£3o5 tlfc 
t^7$)S 0 k* 5 Vi ■$ S k fr k Vi -5 k , S itlS ©7* -i 7 7 ©T’—XISSSSli-’? 3 /*: S till <! 
T (2D, 2DD©^2fg), 4MHz © Z80 t*&MW\f^&Vi©-C* So fzbZ. 

\mtst§j£rv & So XITtt, 7*4 X7^Sr-7§atf kv>5 S ktt, FDC(7nytf- 
74 773 7b d- 7 : 1 9 f ^#i) CiSi£ 3 v y F ^ FDCOX7-7 
X^MSoTViT, FDC*iTr-7 5-SU®toT< ft ! JtfrjTIfc^, r-7£INtfr 
< S kv*5 S k&©T*S;7, 5 4 77©{g£\g (2D 4f» 2DD *$7 -5 ) ©3§-£ 
&SZ80-Cfe®3 Kb'JMaT^S©^, 8477, 2HD * fc*C*S t, 
tLS5 ©7* So A^SMVi/cfSG L S fc 8 4 77 FD ©*§-£ TZ80 © 4MHz 7ttA* y 
y DMA =&]f -sTv^Vi MZ-80B ( fe t> S A CPU fi 4MHz 

U8 tmictbSXl 



©Z80) IZ 8 -i yj- Y-74 t ^ 5 V > ? *? tt 

T, DMA XI turbo Cf^ViTV^©T$>-So 

S a E, DMA t7ny t°-r -Y X X t ltm>IRI{%lz$> 6 a Lfr 
b DMA ©f*v> i: 3 5 fi, &bTr7ny tf-rVxyoy-F/x'f FIM1J C^otV' 
>SV^tn4„ O^D, 7nyf-fV7 7 

TbiS3iCtT^t>-&S ZttfT%Z><DT&Z> 0 iKS-f W 5^©T*-5 0 
turbo * iTC 2HD r -Y X X *1M o T ^ -5 ift^fci: FD ©HfF/F'io b < * & £ fc 
fc£ D f#-2>©T, lilTCO^-y'/’^yxJ yy T-Y X X 2D F C bTio 

■s e 

DMAriS® 

DMA ©S#®jf^c(i&©Ao;&s&5 0 

CtlttJg«©i:i5^oy^|E3|TJbS 0 LDIR, LDDR fclfcfcWCttlf Cfc**, 

1) -JgJJU:©'^ FiSc^fe^-t-5^^ DMAC^itln, 

2) V-X7 Fl^X^-T y y > F b, ft Xf -f ^—7 3 >7 F 1/X§f7 'J 7 > 

bt2> miffiiteJ 0 

®^CS3V>T^*s*S 0 

® y*u~i/oe& 

OS D, /77t 7 7 VRAM ©*£&<&•, Sc^ttib-C^So fct>3A,, rSX F VRAM 
tUK (Bffi±©0j%) £a 

< <DT$>6 o 

(D i/o - i/o ii& 

<I3UC rxya-;uj tv^ W** s tF?>4bt^c©*^, *&«*©»•?* 4 „ *<DH& 
cfe, WH®-«#b®&j£& t*, — ftMe{gofcbsv>©Mi^T'bs 
5o ;M?JtRAM tf— F (EMM) & I/0^f|Co^i5 o tv^©e, ZtDjjftTbfiEJ fl 
f!;6*&-5 0 

© >*'J ■«*—*■ 

^r§*r-^cF©-9--f-a|g*BtMbS^^c.TbS -5 b<DT£>Z&, i'htoT DMA 
£{£■5 ©l±7:S§ic&^b-f So -tf-— 77 •S?*— XM: I^nM F/iit ti5^rx75A'b5 

&h i?o? ? i ? ? (?«^-rs) 

f-r*s 0 f^&ffM©r-r s-a^igctttacico^fco 

© i/o-y— 7 

7 7 VRAM0-9— 7Tfc5 5*»? b^bTOT^^r- 
7£®t±J&iriT*£#^©-Ct>St>b©J: a T$>6 0 t&sus'r+x f vramo-d— 7 

/£*>*£;&> 2K>nM F £7-773 ft&R: DMA £{£-5©«fb&StMS 



iS8$ DMA 149 



<D 

®~(D©$5^tf— f- ^BlS^-tf-S S t**nrjJg*OT*So -3*9, Ca&b*i*6* 

S7 f -?£j|ofrf > :Sit3;*b tv^-5 «fc -5 & 3. So -5 — -5 o 

JJLt***WtS[*TJbSo ftttfcA/rfeSrv^fcC, SOAoOS^Ri^-r^TC-PV^T 
f-y7°^7°a^7A^#S -5 fc bT^SOT&So DMA t ^ 5 5*5 1* tt/i y 7°T3 

— 7 yf S t b < SA/'CV^SOT&So 



□MAI<*»f6T&3 

•?«, DMA^^a bVi -5 S t*b ^**H«rfcS©**ffi#ewLT *< 0 
|JX h 8-1 liflOlii/n/^At, HiS^-r^T-ocD^TafeS^n^^A 
T&So JI1-^SOt > 256[il*fTbT^So 



U*h8-1 DMA 









. Z80 










.PHASE 


0E00H 


07D0 




SIZE 


EQU 


80*25 


0E00 


26 00 


START: 


LD 


H,0 jcounterl 


0E02 


11 07D0 


LOOP1 : 


LD 


DE,SIZE ;counter2 


0E05 


01 3000 




LD 


BC , 3000H 


0E08 


ED 61 


LOOP 2: 


OUT 


(C) ,H 


0E0A 


03 




INC 


BC 


0E0B 


IB 




DEC 


DE 


0E0C 


7A 




LD 


A , D 


0E0D 


B3 




OR 


E ; DE=0 ? 


0E0E 


C2 0E08 




JP 


NZ , LOOP2 


0E11 


24 


> 


INC 


H 


0E12 


C2 0E02 




JP 


NZ , LOOP1 


0E1 5 


C9 


) 


RET 










END 





^ftCfctbT, V* \- 8-2 « DMA&teoT*fcfc©TfcSo#*>9^-f<A<}: SMS®! 

bftfc|I|b< 256 0 Hfi : bTV^So * 3 ttDMATtt«fc 
s fc*«»fClli9ig-r«^K:ttfc'5^ba< *S ©*?**, JtdSTtt^oT^JSr^o 

ij X h 8-2 DMAL-r*trn?7A 











. Z80 












. PHASE 


0E020H 


07D0 






SIZE 


EQU 


80*25 


E020 


3E 


00 


’ 


LD 


A , 0 ;XOR A. . .COUNTER 


E022 


F5 




LOOP 3 : 


PUSH 


AF 


E023 


32 


E05F 




LD 


( DATAAD ) i A 


E026 


CD 


E035 


MEIOSI : 


CALL 


RESDMA ; RESET DMA 


E029 


21 


E050 




LD 


HL.DMAD ; LOAD TOP OF COMMANDS 


E02C 


CD 


E04 3 




CALL 


WDMA ; SEND COMMANDS 



750 HBitcffiS XI 



E02F 


FI 




POP 


AF ;POP COUNTER 


E030 


3C 




INC 


A ; 0 TO 255 


E03 1 


C2 E022 




JP 


NZ , LOOP 3 


E034 


C9 




RET 




E035 


21 E03C 


RESDMA : 


LD 


HL, RESDAT 


E038 


CD E04 3 




CALL 


WDMA 


E03B 


C9 




RET 




E03C 


06 


RESDAT: 


DEFB 


6 ; NUMBER OF COMMAND 


E03D 


C3 C3 C3 




DEFB 


0C3H,0C3H,0C3H 


E040 


C3 C3 C3 




DEFB 


0C3H,0C3H,0C3H 






•WRITE 


DMA 








; HL=TOP 


OF COMMANDS 


E04 3 


56 


WDMA : 


LD 


D, (HL) 


E044 


01 1F80 




LD 


BC , 1F80H ; DMA PORT 


E047 


23 




INC 


HL 


E048 


04 


REGWR : 


INC 


B 


E049 


ED A3 




OUT I 




E04B 


15 




DEC 


D 


E04C 


C2 E048 




JP 


NZ, REGWR 


E04F 


C9 




RET 




E050 


0E 


DMAD : 


DEFB 


0EH ; NUMBER OF COM. 


E05 1 


7D 




DEFB 


7DH ; ( D7=0 ) AND ( D1D0 < >00 ) =WR0 


E052 


E05F 


S TOP: 


DEFW 


DATAAD ; SUB0 , l=PORT A TOP ADDR . 


E054 


07CF 


LEN: 


DEFW 


SIZE-1 ; LENGTH 


E056 


24 


S KIND: 


DEFB 


24H 






; 00100100B 


: 0??? ? 1 00 = WR1 (PORT A MODE) 


E057 


18 


D KIND: 


DEFB 


18H 






; 000 1 1000B 


: 0??? ?000 = WR2 (PORT B MODE) 






• 




SKIP WR3 


E058 


CD 




DEFB 


0CDH 






:11001101B 


: 1?????01 = WR4 ( WR0 FOR PORT B) 


E059 


3000 


D_TOP : 


DEFW 


3000H ; PORT B TOP ADDR 


E05B 


9A 




DEFB 


9 AH ;WR5 READY=HIGH 


E05C 


CF 




DEFB 


0CFH *,WR6 (LOAD) 


E05D 


B3 




DEFB 


0B3H ;WR6 (FORCE READY) LOAD) 


E05E 


87 




DEFB 


087H ; WR6 (ENABLE DMA) 


E05F 


00 


DATAAD : 


DEFB 


0 ; DUMMY 






* 


END 





&o fa** -*#■&£, BEEP siSLtffllAS < &< 5t»IIfcS. CLS <DW.&te±m 
HOT h y t*a— hi*iK2f& j e-KC*o'rv»S + DMA IS 

** j£ § o B M <? *» C M ^ £ fc J/i5^oStC^U/D/7A§ BASIC TU^ti b © 

i" f££> L < t(i3"5 

') X h 8-3 ®S<7>®|*lgfc DMA fcjl/titR 



100 CLS4 

110 DEFINT A-Z 

120 CLEAR &HDEEE 



130 


MEM$ ( &HE000 , 16 ) =HEXCHR$ ( 


"26 


00 


11 


D0 


07 


01 


00 


30 


ED 


61 


03 


IB 


7A 


B3 


C2 


08" 


140 


MEM$ ( &HE0 1 0 , 6 ) =HEXCHR$ ( 


"E0 


24 


C2 


02 


E0 


C9 " ) 




















150 


MEM$ ( &HE020 , 16 ) =HEXCHR$ ( 


" 3E 


00 


F5 


32 


5F 


E0 


CD 


35 


E0 


21 


50 


E0 


CD 


43 


E0 


FI" 


160 


MEM$ ( &HE030 , 16 ) =HEXCHR$ ( 


" 3C 


C2 


22 


E0 


C9 


21 


3C 


E0 


CD 


43 


E0 


C9 


06 


C3 


C3 


C3 " 


170 


MEM$ ( &HE040 , 16 ) =HEXCHR$ ( ”C3 


C3 


C3 


56 


01 


80 


IF 


23 


04 


ED 


A3 


15 


C2 


48 


E0 


C9 " 


180 


MEM$ ( &.HE050 , 16 ) =HEXCHR$ ( 


" 0E 


7D 


5F 


E0 


D0 


07 


24 


18 


CD 


00 


30 


9A 


CF 


B3 


87 


00" 


190 


PR I NT "NORMAL" : GOSUB"SOMEKEY’ 


' : BEEP 


: CALL &HE000 : 


: BEEP 

















200 PRINT"DMA" : GOSUB"SOMEKEY" : BEEP : CALL &HE020:BEEP 
210 PRINT"BASIC" : GOSUB"SOMEKEY" : BEEP 
220 FORI=0TO255 

230 FORA=&H3000TO&H3000+25*80-l : OUTA , I : NEXT 
240 NEXT: BEEP 
250 END 



DMA 151 



260 LABEL "SOMEKEY" 

270 IF INKEY$= " "GOTO270 
280 RETURN 



'J X f 8-2 ^15 -5 DMA lF8* H #*ac 3?>F§ 

OUT t r+tUS X v> 0 ifie DMA ^tlT, *© fc £ If IN ifr 

< 1F80hK£t3 

tV'5 0 

U4T, DMA K#*.S £ fc©T# 4 3 v y F ttfcofc 1 h£'U&© 

*>? fcvOBWhWBiSttrTJbSo ^ ^ 3 7^K®*Bli, 

<#UT7«S£>9, riA/f FtCiOlfyhiJfiotv^ 

6, COttBJkv^AiCifcSoTV^OTJbio fflfcta*?), CPU i: DMA ©H 

h T 8 tfy F7<7V^;KDlfl§fT^ ^ £ -p &fc©T£> 

•?> o 



DMAI*Jit'<rtT&3 

Ttt^iV^Kmcfe^ft-r, 'J X h 8-4 T£><£ 0 Z.tV<t*~)V BASIC r*V>T*So 5 
If, DMA C3?yF ^xk-oX^tUi «}:V»0T2&S;&>fc, < T £v>© 

T£3 0 i-©ili s DMA *«5**©f!Ij£=;* t°- F*** < Sot US -5 £ ET$> 
& 0 Z.Z'C\X^-'y'f)Vti^hZ.fi'CX^(Dtz 0 

MX 1-8-4 BASIC T DMA 41*oT*S 

100 CLEAR&HDFFF 

110 POKE&HE000 , ASC ( "X" ):’HfflS'IS«&’535:# : 

120 RESET$ = HEXCHR$( "C3 C3 C3 C3 C3 C3"):’ ') ~b V h *? - 9 

130 DMA$=RESET$+HEXCHR$ ( "7D 00 E0 CF 07 24 18 CD 00 30 9A CF B3 87") 

140 GOSUB " SETDMA " 

150 END 
160 ’ 

170 LABEL "SETDMA " 

180 FOR 1=1 TOLEN ( DMAS ) : 0UT&H1 F80 , ASC ( MID$ ( DMA$ , I , 1 ) ) : NEXT 
190 RETURN 



Ttt^D^9A©BWIie^So ;07'o^7Ali, £B®C FXJ ^SStST-S b<DT& 
&o IfiUC CLEAR ^T®«S-fiSftU-CV»S 0 7°n ?y A Tlf&HEOOO 
HEFFF ST© 4 K>nM h £fittfcUTV>£;i)*, 1 'U h&©T& 

IfV-X (®Htc) *7KU*T»*r4*Slj&*fcSfcl{>*0;£ o X’aX^ATIi, ^© 
V-XIf&HEOOO KfOOSTr*!?, ASC ("X") £ POKE LT^ 0 

RESET$ = ~fct£oT, &HC3** 6 AMATOS, £*Ui DMACSS 'J-k-vF 3’ 
■7>FtJ5 0 DMA &Wmihi-6iZit t C*> < 6{@© V -tr >> h 3?VF^W 
If, DMA -5 0 Z tUtMM(Dt§'& T&oT, 6 

ffl &I2I 5;&Sllf t?>^o UA* D?cji:©f: it> C 6 ®3^o Tv^ -5 0 
?52 t*|£fca}& Xl 



&G DMA$= RESETS +~fc & o T V* -S ±f©37y F T$>6 0 %(D%k, 

GOSUB "SETDMA"T, DMA$ CAotl^ &HC3~&H87 £T(D 20 f @©i%^£ DMA 
O TV: 1 5o 

^ CITWtf ^ LG 'JXF 8-4 DMA 037XF 5 0 

® ffIS 

DMA^CaWFB, < #W"t 7®IS>£. WR0—WR6 fcnf&'tlTV* 

5o WRtli74 t'l/'XXj' (Write Register) fc V> -5 DMA^yyF 

©fi, tl&Ri-tiH <fcv> 0 

WR©TCii1f7V^X;X tv^ &©*$'£> D, gjG 

HLV»fc©-C«&^ 0 fitmnvv K©#)S©{±;&k*tf-£|2| 8-1 G^-r 0 7 H 

£4©;£*>&£J* ©3 b*>y hTflSOTSS J: $ Kl-fUTv^J: 3 *fe© 

Xf^, g-otZZfcli Zilog * D ©^t$t&#|f t Vi -5 fc ©^#4-f £ <DT$> 6 5 0 $ b Glffl 

8-2 ~ 8-9 £j| X^tzti%tz^\ 

(D C3 h = &H1 100001 1 

0 8-1 b it^tUi, WR6 Xh 5bt 6 tz6 5 o SuiE© ±oK RESET 

■So 

(D 7D H = &B01 1 11101 

MSB (£i») i?0T, £ffi©“O!&5 00-?*V>*>& WROT&So ^bTi8-2Sl 
-So D„ D„ tt7"-:P©MS^5££fg^1-5 0 £ £ -CttroiJrtfi^ F 7 >X 7 r-(IKSI) 
~?h&o D 2 (=1) Ir]T^)-So DMA ti— o©dx— F (A t B) 



0 8-1 DMA F 





D7 Dg D5 D4 D3 D2 Di Dq 


WRO 


0 


? 


? 


? 


? 


? 










& 

P 

0 

0 












WR 1 


0 


? 


? 


? 


? 


1 


0 


0 








WR 2 


0 


? 


? 


? 


? 


0 


0 


0 








WR 3 


1 


? 


? 


? 


? 


? 


0 


0 








WR 4 


1 






? 


? 


? 


0 


1 












imps 






WR 5 


1 


0 


? 


? 


? 


0 


1 


0 








WR 6 


1 


? 


? 


? 


? 


? 


1 


1 









* 8 $ DMA 153 



TMT, V-X (®3l7C) trj 3> (<E38fc) £%W%?6(DT$)6 0 A t 

BOWKS. S!|C t*5 t V>-5iiW2&V>©t\ i;t’SA-BOj|nlC 

Ltv^o D 6 , Ds, D 4 , D 3 (i:K-F AOWfeTFi/Xt, X*n y X vy?7s (MSM-f 
MS- l)^t^^t^i'077/K^otV^ (Z80 DMAOiiT1i*V >?t*y 

hkv»i), lT*fi»^Wt<R561-4i:V»^ ii:C*5o 0 O#^li, K5EL&MtM? 

Zb?$>t), ZV^itPMfcWMZtifcbtD&W.tftiZZbliZKZo 0 8-2 *> £> fc 
5J:5K, TffiG^itTlWg-r S J: 3 C*oTV»T, $tE < t 

**Uf, LSBteO^)*^fi$LfdlBClF80„COUT £ d Ttt 4 t* y 

bbb IThZfrb, £ tC*5 0 o| D, 00 H , E0 h , CF h , 07„*5, 

tltT’^^X^O 0~3 CK5££*lS<, ffiffl'M MR**07CF„=80X25-lT2bSikC 
?±So < ©/io iOfcftKf^s, fcL.yny^i/y^xoTfi§tSUv> 

*§•£«, 2DH = &HB01011101©aK, 00 H , E0 H , 07 H bttltf 
© 24„ = &B00100100 

0 8-1 i 0 WR1 T’^-So D 3 C<£ 0, C-fS*s I/O Cf 

1--S (tf-h BttWR2?fllHt>4)o Ds, D 4 « 1 *A ME3Sbfcft, iK-hA07Fl/X 
£t*-5^*.£A>£Jg^-f £ *>©T&5 0 0 8-3Ct5J:5C,-l,+ l, (f£fbS-fr 
*v»)©Ho©£S*£5e-C*So r*X F VRAM * lffiSOX^TSfeS© 

T&Zfrh, V-XTN&£jK- h A©7K^XttEOOOHC05£-rSiItC*S o 10, lit* 

10CLTfcS o ifcC D, -?&£**, F A ^©7 



HI 8-2 WRO 



WRO 

D, Dg Ds D 4 D 3 D 2 Di Do 




sSP£<7)iK£ 
/<-r MS-i 



154 aS^I;(8l,Xl 



X-feX©;?^ 5 1 KtZo %<Di§i-n, 

7Vi>'X^Kfil§^S-C§So bd^astfo^K turbo tliJ:fflMliffii*V s 0tJb 
s. fliifcfte., s^ccssaae^tfsik^Tsso-pa&s^ft^jarvs, 

© 1 8 „ = &O 000 1 1000 

WR2T&2> 0 £fttt}B56©$MM*>l?-b BC&ofcjSi^TWRI fc IHU^v^T* 
£>£<, r*Xh VRAM^#Satf©*?*>6, tf-h BBI/Ot, 7 >X'J7>bCbT 

(D CD h = &B11D01110 

WR4T'^5o WR3 ttf— f-fl§*©T, D,.D,**iK-h B 

7F^X©f|3go ::?B, 00 h, 30„a**3T2fcSo D,,Di**<E3S ; e-FO}B3eT*S. * 

F©Pffl«&© t is D o 

/W K : DMAtt I'M F«yai-Sfct/CCPUCAX*jgfo L*»U WRO-Cffi 
llfc/o-^i/>/Xt’lt©AM b»£&3l-&;boTfc<, GfcC 

WR5T1&HJ1-5) iffiUb-Obtili, *©jt»CfftMX *S$?--6©T t CPUttlv*/ 
71M X/PLjM^*SSfr'C3*V\, ^B#*DMA t CPU «£tttVfX itC 
&-£„ turbo Tti DMA ^ot7D 7 tf-fM XXGTX-feXf S*§£, ClC^-F&iE 
otl '5 (| 9 |J#I®;h ) 0 

/<-X b^-K : DMA fil'7 , 4ffi^a*W8&'C k fc£MteCPU C/N*X^ig$-f, X°nj/7 A 



18-3 WR1 



WR1 



D 7 D 5 D 5 Da D 3 Dz D, Do 



0 










1 


0 


0 



0 7 ^ U 

1 I/O 

0 -It- hAT” KD^-t'X M7> I- 

1 -it- l-AT KUX*-f >7 'J 7 > b 

0 -It- hAT KUAoj£ 

1 -it— bAT KUX 0 S 







0 


0 











-it- I- A? -f 5 > ?%m 



0 0 7 i' 7 VU *=4 

0 1 3 

1 0 77 XA-ft = 2 

j 1 IffflLio 

0 lORQlJ^tt'l' Xtl-¥< **7 
0 MREQIJJ477 7 JU-? < M-7 
_0_RDtt^77 7;u-¥<*»7 
0 WRtt^+MXA-¥< **7 



turbo TiJ 
1 s 6 *£i' 



* 8 $ DMA 155 



fc, Sfc^X*****. d©^©f->7°^ti-r^<Ti© 

^e- F^ftoti^o 

aKavj-f-a/Xl^-F: :nii DMA**®®*®**- FT, DMAtt7°D^7 

5 y^sttfckijijoffiasr^tesrr, & cpu c^xsrii 

£ftv> 0 OS 0 CPU fi DMA **««*»*. 4 ST, Inffc'PS^ikCftS.^CffVJ 
*S»**S*Sn-CV»S#^C, Z(D*~ Ftf{£btl6o 



El 8-4 WR2 



WR2 



D 7 D( D 5 Dg D 3 D; D, Do 



0 










0 


0 


0 



0 *=E ') 

1 I/O 

0 *-EB7 ' t-'UX-r? <J S > b 

1 #- hBr KI/^-f>2 >)jt> h 

0 

1 







0 


0 










tf- hB^7 5 > 7 %m 


( 

0 w 


( 

) RD 1 ty 2 V- 

ri t'A+m 


( 

) M 

"f * 


0 0 •*7'T^Jb*=4 

0 1 ^-r^JU*=3 

1 0 H t'r^^ft =2 turbo T'li 

1 1 tfffl L4'l' 

) lORQli^tM'?;^ **7 

REQtt!4tM:?JU¥<i&*7 

Jl"¥<»7 

^<**7 



El 8-5 WR3 



WR3 



D? D$ D 5 D« D 3 Dj Di Do 




156 tsuum&x 1 



t-f, b 2)ttturboT k «G!;i£v>o Zti 

iiftStf’/U *><&?&&&%, turbo CkoTtt&gfcfeOTtt*^. 

ft.tz -i > 9 y 7° b • * > (vyf, xyK-t/'/ny^, i^r-f) OHotiS 
**, £ to XT-n-77x^ 



y • b/Pfcv»$©tt*l9&*^ b;p£, «9a*gH:Ti:C*'(b$*i*‘if'5*>0 

7yy-C$>Z>o rtA'XfflW'U b tt, turbo 

**&V* 0 b;Wi DMA*>?> CPU CiJbjA^^^US b;P©T{£ 

rK^XS-fijei-Sfe©. *-K 2 ©$]!?&&£# t.AfcS^LT^^Ua <£5 C (89 

@8-6 WR 4 



WR 4 

D7 De D5 D4 D3 D2 D, Do 




0 0RDYMU&# 

0 1 -mfij U 

1 0 x> K-*y-yp 

1 1 x> K-*y*yn 7 sctiiua* 



18-7 WR5 



WR 5 
D 7 d 6 



Ds D4 D3 D2 D, Do 



1 


0 








0 


1 


0 



— 7, • l/y7^ 



_0 1^7 -r li“Low” 

1 Lx-x-r (i“High” 

_0 CE<7)<& 

1 CE / WAlTv 

_0 X> K-^y-yn *y h 7 7 ° 

1 i>h'yy*yp 7 ^ta sbift u ii l 



$ 8 * DMA 757 



fc ) 0 

G) 9 Ah = &B 1 001 1010 

WR5?*S„ tfD 3 t*i5i5, DMACHRDYhl^Sf^ot, ^ ill's AoT< 

l-'T 'f t >/i -5 o Dsti l/f A High © t Low OtIC 

WS»Cl-S*>©ffi®TJb5 0 turbo TttiBStt High E^otV^Ot, 3©h" 
y Hi 1 KLtfc’< 0 fc FDC ^H^*S3fE5 t Low C&£©T, f-iX^Oi 

0 CUT, Low ^W^lLt5oD 4 «CE/WA!TO^^T3fe^oturbo 
T hilELt WAIT «t 5Ct5i fc 0 D 5 tt^-h 'jX^-b 

0f8$*?*s, iWiOElt r^>F • Ct-So 9, /ny 

7UV?Xft(DWm.*%$:7Ltzhs*7,*CP\J CjgbT±SS fcV»$ £ tt^S c feL^- 
H;x*“Mcb;fc*6, it£oT< 

ft&i^il tc^So 



El 8-8 ij — K lxi>7?<7>F*3|? 



WR6^BB„itf*<7)!ft*ai L 77 7 



D7 Dg D5 D4 D3 D2 D, Do 
0 

t i l t |1 L 



RRO 

D 7 D 6 D5 D* D3 D2 Di Do 



X 


X 


0 ( 


) 0 


x< 


) 1 










' L 







RR 1 



















RR 2 


















RR 3 


















RR 4 


















RR 5 


















RR6 



















SE*W Lvx?(lT-i?—7» 

ar- ? 7 • /\'-f h 

-/« h - *y>y(Tti) 

-/<-f i- •*'5>y(±f4) 

-tf- HAT K U7.(Tfi) 

-tf- bAX KU^(±fi) 

-tf- bBT KU7(Ttt) 

v-R— b BT Klx7(_hfe) 



7.x — y 7. • /\'-f b 

-l = DMA!rffc*t» 

0= u x < • 7? x < y 

0=— 

-0 = 1 > K-^-y- 7 'n -y y 
/'•-r I- • 

'<•* I- • *7>7(±.fi) 
-R-I-A7 Klx7-*7>7(Tia) 
4-R- b AT K lx 7 • * 1 > 7 ( Jdi) 
tf- b BT K lx 7 • a 7 > 7 (T1S) 
-•R- bBT Klx7-*7>?(-M£) 



158 KBKW&Xl 



m 8-9 WR6 



WR 6 



d 7 


d 6 


D 5 


d 4 


d 3 


d 2 


D, 


Do 


1 












1 


1 




1 


i 


i 


1 


1 


i 


J 



83 

87 



8B 



A3 



A7 



T'-f ■te-7'7U3 7> Ko 87 H (Y7-7'.M(7)igu 

-f 7 - 7 ')U 3 •?> Ko :® 37 > KfcgttBl**:, DMAlJit^Cl/N'T^RSraj L®fF£ 

IM%Sf- 5 o -( 7)3 v> KlU 7 F< 7 > 3 v> Kta, r^TDMA^-r-fb-y;H -?>0 

7-=r-9^ ■ ;\'< v> Ko Ax-?* • m'-I' F(7)t:'-y F 4(— Su&;i)fc 

<fc 0 -' 5 (x> F^ 7 ' 7 'o -y ^ t^T % 0 



* 1 ‘J 1 Hz -y KfciU-'-r-f Ko Z 80 £<f xT i' 5 turboCttM 1 * 4 l'o 

80804 ' WRETkOftb 0 (CfsH 0 

L->— 4>xeiizi v> Ko :D)37> Ktf&FjftSi:, V77gt37>K(B 
B H )T*$g5t$;h,fcUS;*? ^KMSCSt^a-e-So U — KU-77:?tf>!2|g££#fS 0 



AB„ 



SJ'J&#-r*-70l/=i v> Ko HSiSAS#, DMAiifiJOiX^x-r 
3 cot*, DMA(7)|iJ u -5i:#lJTcoziv> K &jS-5>„ T<7)zi 7 > K £*tz 

■yhLfc&, fiJ 0 iA**# 4 *fg±f jt, DMAliCPUC^LTIiJOJA^^^ajLSt 
lt£<7)T, SJO&*feg;i/-*>ff>ttD*><7>7rT-*iJ*J&*T'-r t-7;U37> K(AF„) 
S-iM-ST^o oiT; 7 cO'iiJOjA*-i'^- 7 'JUnv> K^-iiSBuC.f] 

•J&*£#fc'J-fe>y F't%Aa6iC7x-:$’7y\*Y F flMWW&S: 3 v> K (8B„) £-£•&<£> 



AF 



B3 



B7 



BB 



BF 



H -b- 7'^3 v> Ko DMA< 7 )SlJOilA*.feIlJU-A>< 7 )(j:L;iOcOSl-C<On 

K«f , Ax-?* . /<7 HJiri^3 7>F(8 

B„) £: Ifl 0 iA* 7 7- 7JU n v > K ( AB„) 4'j7'Wo 

« 5iSiJRDY37> Ko Cco=i7> KCJ:xT, RDYFf-§-ti3£$iJlWC'&C7?x-f 7*T*-i> 
r<7)nv>K(i, p-K3v>k(CF„) Ciot'Jtv FJftSmT, 

□ — KJ7> K <fc 0 i% CiM x T-fo -5 'SbWirh Z> 0 £fc, /HK - KT*«M*^L4l'o 

„ RETIfiY 7-7 %37> K. Y>777h-7>-Kf-f*f-K®t # tx-5 

(WR4, *iJ0jA*.SlJM/\'Y KC0t'-y K6)o C COT— K T'RDYF*-§-4'7’? x -f 7'C4$ t 
DMAWflj 0 ttJTo SI 0 DMACxCT.^*^ tH $ ittz L'i§-£-, RETI 

*-7'7U37> K(B7„), DMAY*-7>37> K(87 H )£iMxA|*, RETI^Sr 
ihTWfii'. 

„ !x*tB l777tSa7> Ko :ma7>Ki:S< IaM Ff-7IJ, L vt. ? 

UvT^-^-t-y F $ 7l-5o 777T*ty h $ tl4IS<fr FH IK'7 7 :? <7)tx<fr!±! L ->— T> 
7(i, 3 7> KA7„CJ: oTtgK-fSo 

„ Ax-?* • /\*Y F!S*tBL37> k» ^r-77 • xc-f F( lxc-f F 



C3 

C7 



CB 

CF 



(7)3 v> Ko 



H u-tz-y F • 37>Ko miitSAa^^PIVIAcoya y? A FT^-fcM af Cfgffl Aft-So 

h WRHOtf- FA^^Y 5 > ?' £ Fl2$Z80 5” -f 5 >^'(;u-tr-y Ftl.(a7y KC3„Cfe 
T<7)|j|tl4'$)^o fcfc'L, turboTH^IS:^ Y S >^'tj:f$x.4t')o 

„ WR2<7)tK— F B“I3!7 7 5 >?'(7) 'J-try F (|5)-L) 0 

„ □ — F'3 7> Ko V — 7, x < 77 Y 7 — V a >(DT KF7Fy77<nflg^7 KU7* 

7 >;? 1 C □ — KT 5 o |I)B$i;,A'f F 47 > 7 < 7 ) 2 U 7 7 feFf 4') 0 CtOavyFT-sfcxT, 
7 — 7 11(7)7’ KU 7 *7 C □— KAft-SA 5 , f<7f^->3 >flj(7)7’ 

K ly 7(i, >7U7> F orx 7 'J7> F <7)PgC □ — K $ ftSOTT-x-i* 7j-f 

->a>*7KUA^@S(7)i^«, #SIJ4i«fK«r'i;>#i:-r5.o £4, T<7)37> F'tt, 
?iSIJRDY37> K(B3„) fc J: D'7x-? 7 • /\*7 FcDt'-y F O(DMAK-ft^) £ 0 *tz -y F 



D3 



LTLS i. 



3>t<- 2-37> K, F7]7>7^7U7t?iA'', WtK — F (7 )7” K U77j 7 > 
?tin- K*t+-f CIltt(7)fI£FS8-f 3 0 



*8$ DMA 759 



(D CFh = &B1 1 001111 

WR6 T * S o WR6 tt t? y h 2T k C®i* * *> JtT tt ft V » 0 CF h fi n - F 3 w K T Jb 
Z>tf, k©T'£>& 0 [X 

—Vi, if Ay ! J © T J: — ViJ 

(D B3h = &B10110011 

SUM 1^4 3WFo o£ 9, RDYflt^*ScW»k**-&, tv>537VK.WR50 
9A„THigh*W8bC *Mitt&S*Vi„ t^L, RDY < 

vi, if Ay ! j © r<t-vij t r if Ay i j ©me, n&^tuts s&j estgcs < x- 

ftb(DT&Z>o 

(§) 87 h = &B100001 1 1 

WR6T, ^-^37yF, 5-f SC TifA ! J T, DMA liiOavy 
& t, Ztl7 tUfrD icm^mtoDMA Amz&t k, CPU teffitlX DMA 

CPU £ t (o£ 9 7i y A) fe-C#&Vi 0 t%b% 

&j# 9 tzti'bZW<D7uff7 Ak\yX\X, ttfrtfiPIFfcfrjfcofcj&i© 

i 5 K rcaitftCtSJlkJ A^^ftTVifttfJ:v»£i:Ktt*o 

JSLh*»i0-9->^A/©jS*iT*4o tto§9W-3T£ftCffi«Av»**, ^fifcHMSO©^ 
*>tzVX, — S3?y VF\Zftr>XL£3U,X, ^ZZkZmt-ZfDlz, 

*i^^CVi 0 

tCT, 'J i- v 3 y ^ ^ 1 1 U i tf i li, fclidfrUT, ^PtUTf- 

y 7°;P X o X 7 A *5 § jg C t © X h o tz 0 

A) UXK8-5 (jELVi^JSSSO 
DMA Tfi, h P-'XXX 

:tK4S, os 9, Bfci3*^*i*tfTDMACfT*fe*S*&, SAJi^X*© 
l§5§ fc'(K('C < \'5)6i^>, Vi^Vi^) U^’s'CfeiViyi^X^'^itl'C's'So 9 X h 8-5 
U, € CSJsb^^!|-C, WR6JU^f(i|W|i;S tXX^(DX\ 150~190tTOW©7l/— X“TfiV — 
X ^ ASCII a - K * POKE t fcB, CF h = n — F , B3 H = $£ftl \s r 4 , 87 „ = 4 * - X;P/i 
U£ DMA Clio X Vi B'ffcU-CViSOtty-X7FWXTI±>5:<, V-X7KPX© 
rt£-c*a*i6 wro©^- f Alter Fi'XttBRB*- *&***£ vi Q ^-^tvis; t 
tt, yx b 8-3 tmu<, 0~255 © ASCII 3- F©^ ; &BM4 I K*ViTVii,riUT* 
-So ;v-XO^TIi DMA Cj££®«: 3'M h CfcSli B3 H fca*iUT <fcVi) rtffrfc&o 
fz(DX, *S#fii<!Srorvi4 0 

'Uh8-5 iEU.'¥tt#)S 



100 CLEAR&HDFFF 

110 RESET$=HEXCHR$ ( "C3 C3 C3 C3 C3 C3") 

120 DMA$=RESET$+HEXCHR$ ( "7D 00 E0 D0 07 24 18 CD 00 30 9A" ) 
130 GOSUB"SETDMA" 

160 XI 



140 1 

150 FORK=0TO255 

160 POKE&HE000 , K : ’ 7 X * - 3 - K £ V - X • 7 FM^PORE 0 

170 DMA$ = HEXCHR$ ( "CF B3 87") : 1 z tl 1z T t <£ . Z ft 1z if 0 

180 GOSUB M SETDMA" 

190 NEXT 
200 END 
210 ’ 

220 LABEL M SETDMA M 

230 FORI= 1T0LEN ( DMA$ ) : OUT&H1F80 , ASC ( MID$ ( DMA$ ,1,1) ) : NEXT 

240 RETURN 



B) V* h 8-6 

tzfrtzfr 64 /nM h©|£i£&£, MEM$(~) =MEM$(~) 
t><D%(DT$>6 0 4(H ft 90'if^-7\Z 

'J X h 8-6 **i)-+**i)<n7 P'y^UiM 



10 CLEAR &HDFFF : CLS4 

20 MEM$ ( &HE000 , &H90 ) = STRINGS ( &H90 , 0 ) : ’ ^ I) i /; II 7 

30 MEM$ ( &HE000 , &H40 ) =STRING$ ( &.H40 , " ! " ) : » y - X £ 4z y h 
40 KEY0 , M DE000 E08F"+CHR$ ( 13 )+”R"+CHR$ ( 13 ) :MON 
50 A$ = INKEY $ ( 1 ) 

60 RESETS =HEXCHR$ ( "C3 C3 C3 C3 C3 C3" ):' ij t 7 h T - 7 
70 DMA$=RESET$+HEXCHR$ ( M 7D 00 E0 3F 00 14 10 CD 40 E0 9A CF B3 87") 
80 GOSUB"SETDMA" 

90 KEY0 , "DE000 E08F" +CHR$ ( 1 3 ) + M R" +CHR$ (13): MON 
100 END 
110 » 

120 LABEL "SETDMA" 

130 FORI =1T0LEN( DMA$) : OUT&H1F80 , ASC ( MID$ ( DMAS , I , 1 ) ) : NEXT 
140 RETURN 



C) UX18-7 (7 *0-1/0) 

rCLS4 V ?y &T &&0 IfrWKIi, r 4f X 1 VRAM ^ 

32(X^-X® ASCII 3-F), 7 b >J If a- 1 ^ 7 , St^ VRAM b??74v? VRAM 
^0 tzt£L7774 y 9 (Dime's 9 Ofrl, bhbfr—H, 77-feXn Jfg 

y 7tSo «C4ofc©T 100 muff t-rrCLS 4J 

W2«foa*T2bofc. 140 tT© HEXCHR$©4>«^«f§A'-7>' 

T*&& 0 V-X y X Kiljzl 8-8V-££o OUTI %1%-itzT 7 -y L 

C£Stt JR * JP Ctitt-skKiiS), USR0 
(DMA$) t, DE wy'xy C DMA$©FgS^©7°4' vy, 

OUiSAot E000 hC-V7Vi— 230^7© 0, 32, 7, fi 

teH|-r5r-7^©T, 0-2 Zt'iDJ: 5 CIEjIS fc 5 #H0 <" 6 Wi^b*S T& 5 5 

±). 

0*18-7 r CLS4j^K + 



100 DEFINT A-Z 

110 INIT : KLIST0 : CONSOLE0 , 25 



% 8 M DMA 161 



120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 



CLEAR&HDFFF 
DEFUSR0 = &HE000 

MEM$ ( &HE000 ,12) =HEXCHR$ ( M 78 EB 01 80 IF 04 ED A3 3D 20 FA C9 

' mmm * - * > * ft i t & < t tz © iz 0 

RESET$=HEXCHR$ ( "C3 C3 C3 C3 C3 03"):* »j Hi y h T - $ 
DMA$=RESET$+HEXCHR$ ( "7D 20 E0 CF C7 24 18 CD 00 38 9A CF 87" 
’I^VRAM^^^y^VRAMH'iTo 

DMA$=DMA$+ HEXCHR$("4D 21 07 C9 30 CF 87" 

'r*XhVRAM£3 2 ( X ^ - X ) H 0 

DMA$=DMA$+ HEXCHR$ ( " 0D 22 C9 28 CF 87" 

9 7 b ') X a L-h^7 ( a ) Ho 

POKE&HE020 ,0,32,7 : ’ * ft ? ft <D T - ^ tto 

TIME=0 : FORK= 1T01 00 : D$=USR0 ( DMA$ ) : NEXT : T1 =TIME 



) 



TIME=0 : FORK= 1TO100 : CLS4 : NEXT : T2=TIME 



PRINTT1 ,T2 
END 



V X h 8-8 *aiK*SETDMA* 







. Z80 










.PHASE 


0E000H ;OR ANY 


PLACE 






; DE=ADDRESS TO 


DATA , B=COUNTER 




E000 


78 


LD 


A , B 




E00 1 


EB 


EX 


DE , HL 


; HL POINTS DATA 


E002 


01 1F80 


LD 


BC, 1F80H 


; DMA ADDRESS 


E005 


04 


LOOP: INC 


B 




E006 


ED A3 


OUT I 






E008 


3D 


DEC 


A 




E009 


20 FA 


JR 


NZ , LOOP 




E00B 


C9 


RET 










END 







D) U * h 8-9 (I/O -* I/O) 

D LDIR#M£;i'f\ £35 fro t LX BC L 

fttuttr + x b VRAM - > r + s b 
VRAM ©KBIT'S) So HOffCJbS bi -5 OffiCT'y > b Lfc 

IrUH, T b U t* i - b -^Sl^ VRAM 

k-rs«^tta®**j2‘S'P*S. 3 ti50©3-7> F?iJ*f£oT*s^;fc*>5>, PJ 
(REM) 180 fr© J 

y-xtf^Xr-f^-^a y^'jr&S fc if -5 t (In 

Z t o 

u X b 8-9 i/o^i/ o(jtg?ij)iag 

100 CLS4 

110 PRINT" 0123456789 ABCDEFGHI JKLMNOPQRSTUVWXYZ abcdef ghi jklmn" 

1 Ofl TIDTM'T’QT’DTXint I 1 C \ 



130 


RESET$=HEXCHR$ ( "C3 C3 


C3 


C3 


C3 


C3 ' 


’): ’ 


V -fe 7 


h 


T 


- 


* 








140 


) 




























150 

160 


1 ft * tt %. x it 

DMA$= RESET $+HEXCHR$ ( ’ 


' 7D 


00 


30 


4F 


00 


1C 18 


CD 


50 


30 


9 A 


CF 


B3 


87" ) 


170 

180 


’ m D fr V M M 

* DMA$=RESET$ + HEXCHR$ ( ’ 


' 7D 


00 


30 


4F 


00 


1C 08 


CD 


4F 


30 


9A 


CF 


B3 


87" ) 


190 

200 


* fr * ft * t m Ji 

, DMA$=RESET$ + HEXCHR$( ’ 


* 7D 


00 


30 


4F 


00 


1C 08 


CD 


9F 


30 


9 A 


CF 


B3 


87" ) 



210 ’ 

220 GOSUB" SETDMA" 



162 fsU^HtB&Xl 



230 LOCATE 0,10 
240 END 
250 ’ 

260 LABEL "SETDMA" 

270 FORI= 1TOLEN ( DMA$ ) : OUT&H 1 F80 , ASC ( MID$ ( DMA$ , I , 1 ) ) : NEXT 

280 RETURN 



E) VXM-10 (I/O - I/O) 

AB?/vT r®!5SJ Z.(D7° v if y A it EMM (A^fil RAM jR — K ) tjt&g1£ 

LTV^^tV^-5 t, EMM - G-RAM ©P^Tr Lt 
!/>£©?& So 640x200 = 16K^M P T 

£S, EMM ©gili 320KAM h 3204-16=20 H®&a* lft© EMM 

C AotLSA 8fe&£> 320/48 = 6.66 -C&Zfrb 6Hi®# 0 640X400 £€>{**©¥ 

^© 3 Bffi^T^So 

U h 8-10 Hisa. 



100 WIDTH80 , 25 : INIT : KLIST0 : CLS4 

110 OUT&HD00 , 0 : OUT&HD0 1,0: OUT&HD02 , 0 : ’ E M M £> |*I 7 KI/XiOKt5o 

120 'f-^^EMMFC^OCtfo ( 20®^ ) 

130 S = 360/20/5 : FORJ = 1TO20 

140 POLY ( 320 , 100 ) ,90 , 4 , 144 , 90 + J*S , 720 + 90 + J*S: ’ i| Jf* & S < 

150 PAINT (0,0) ,2, 4: PAINT (320, 100) , 1,2 
160 GOSUB"EMMW" :CLS4 
170 NEXT : BEEP 
180 » 

190 INIT : CLS4 :F=0:Q=0:B=0 

200 OUT&HD00 , 0 : OUT&.HD01 , 0 : OUT&HD02 , 0 : ’ E M M (0 1*1 ® 7 K U X £ 0 \Z ? & 0 
210 Q=( (Q+1)AND7) :B=( (Q+1)AND7) 

220 FORJ= 1TO20 

230 IF 0 GOSUB"EMMR" ELSE GOSUB"EMMR-2 " : ’ * fcGRAMA|jIt 5, 

240 NEXT: GOTO 200 
250 END 
260 » 

270 LABEL"EMMW" : 1 G R A M i6» 6 EMMAfs^t-So 

280 DMA$=HEXCHR$ ( "C3C3C3 C3 C3 C3 7D 03 0D FF 3F 2C 18 CD 00 40 9A CF 01 CF 87") 
290 GOSUB" SETDMA" 

300 RETURN 
310 » 

320 LABEL "EMMR" E M Mi^ 6 G R A MAfigf « , 

330 DMA$=HEXCHR$ ( "C3 C3 C3 C3 C3 C3 7D 03 0D FF 3F 2C 18 CD 00 40 9A CF B3 87") 
340 GOSUB "SETDMA" 

350 RETURN 
360 » 

370 LABEL"EMMR-2 " : * jg AS X 7 sr E ^ 6 E M M 6 G R A Ma tsU f i . 

380 IF F THEN 420 

390 DMA$=HEXCHR$( "C3 C3 C3 C3 C3 C3 7D 03 0D FF 3F 2C 18 CD 00 40 9A CF B3 87") 
400 GOSUB"SETDMA" : PALET® B,Q,B,Q,B,B,B,B 
410 GOTO 440 

420 DMA$=HEXCHR$ ( "C3 C3 C3 C3 C3 C3 7D 03 0D FF 3F 2C 18 CD 00 80 9A CF B3 87") 
430 GOSUB"SETDMA" : PALET® B,B,Q,Q,B,B,B,B 
440 F=(F=0) : RETURN 
450 ’ 

460 LABEL "SETDMA" 

470 FOR 1=1 TO LEN ( DMA$ ) : OUT &H1F80 , ASC (MID $ ( DMA$ ,1,1)): NEXT 
480 RETURN 



:0^n^7AliDMAS:tt^ EMM h G-RAM 9 £ itCJ: 

V , — kv^-5 WtWo 

rtf**, fcHU¥Mrtf#>6, *e#®e^c:i:3W'rSStt’f-r*S o 

V X h 8-lO0jSK*ffS:5o 130—170 WIS0^7>f'y^a 
§, EMM ^!?atP^--f->-C*S 0 EMM©ra®r V 7>h? 

ZfrZ, llOfffc 200 EMM (D\HU7 Fi'X&l^^artfltTaflrtfo 



msm DMA 763 



£T, 

7)T*5 0 

fcV^Ofi, DMAT&T4 Xf -t ^->3^017 K UX©t§‘&(i#3!l£&fEa*d& 
5ft©T'&S 0 EMM^©T-y*£j&Af;i, iS7Kl^X^0gg»^, ZtUZU^fr 
&6<DT$>6 0 IfflCB, T -t Xf 4 * — '> h b (£©*§-o&5tf— 

b A) C^IRCTFv^^a-KSnSOtt, *:3U©ifM (4 !> ^ > b/r ? V * > 

b) i*ff**?nfck#*©^ 0 ***»€> 7’FW'X03e©J(ft^tt5EftiSTn-K Six* v» 0 * 

©fc*K, ^^M**ttT**£'S**fcSo t!)*if-g^-bA5;y- 

xcSiLT* 1 ^ CF„ ( a — F 3 -v y K ) %iiot^5©?;blio y-X©£tt, n-F 
nvy F**j2l<?>ft-S t, ^©BMt^^At 7 F^X^n- K£ft£4><'> 0K o ^©jt^C 
PPolfOtf-b ABf-fXf-i^-yayKtiiaJt, tbo < D iS-tOT* S c 280 =fT 
Cfc£ HEXCHRS©^©^©^© TCF OlJ **-?-©g|5#T£ -So 01 H (WRO : B -» A f§ 
5£) **H*©T2bS. *©£ttrCF 87JTSD- F.DMA 4 < tl5 0 

&fc230fT© TIF 0 ~J A\ Ztlte 2 tioOfflEEA EMM -» G- 

RAM |£&© -5 t>, GOSUB "EMMR" (Dj5&*y 

yy^tztf, |^LTV»4*?tf&*"CLS'5©Tfc£0*L<*V» o % ZT "EMMR- 
2" TtiWHffi btfitl.1.) ISiLoo, jSBS'ME&U Ik 

t £11*0117, tv>5 £ t ^otl'So ZlftteDMA© 

-£v>-efj* < , 460ff*^©-9-X'A-f-y "SETDMA" *5 b m>©-C&S 0 V X b 8-8 © 
^«§g77A'-7y£f£;U3:SfJ2lg©II,g1z&S 0 UXb 8-11, 8-12 CDMASHfcbl* 
c CPU ii'yaiya tggtS/n^Aiittfc’ < ©T% turbo x— tf-T&^Afct* 
btfLV'o A/itNEW BASIC (CZ-8F01 V 2.0) T&v> fc^-f 7 b GV^io tSfr 
tt 5 © T^fg-f 5±-C 0 

4 to, y X b 8-11 T USRO, USRlCX^yjSjSt-rViSOtt, &H8000*s^SScSC4 
o-CU*5fc»TfcS 0 3 6Cll8J£1-*i:, U X b 8-12 S TCP 3J 

tt A l'$7X***«3ftfclfc»©*'f X°=&it3TV^©-C, £*t£7xyX UT^-SOT* 
So y^7°SXT>)/f-©X7-^||^1-SJ:dCUTS>So ff'L' 

©jUt©.ttfU£‘£>£**, y X b 8-10 t ■5TS>S 0 

ij x h 8-11 DMA &®fr&\.'[al*i ; i. 

100 CLEAR&HDFFF 

110 DEFUSR0=&HE000 : DEFUSR1 =&HE030 

120 MEM$ ( &HE000 , 16 ) =HEXCHR$ ( "FE 03 28 04 3E 0D DD E9 EB 46 23 4E 21 00 40 D9") 

130 MEM$ ( &HE0 10, 16) =HEXCHR$ ("01 03 0D D9 ED 78 03 D9 ED 79 D9 2B 7C B5 C2 14") 

140 MEM$ ( &HE020 , 2 ) =HEXCHR$ ( "E0 C9" ) 

150 MEM$ (&HE030 , 16 ) =HEXCHR$ ( "FE 03 28 04 3E 0D DD E9 EB 46 23 4E D9 21 00 40”) 

160 MEM$ ( &HE040 , 16 ) =HEXCHR$ ("01 03 0D ED 78 D9 ED 79 03 D9 2B 7C B5 C2 43 E0") 

170 MEM$ ( &HE050 , 1 ) =HEXCHR$ ( "C9 " ) 

180 WIDTH 80 : INIT : CLS4 

190 OUT&HD00 , 0 : OUT&HD0 1 , 0 : OUT&HD02 , 0 : ’ E MM(D[*I®7 h*l/X$0Kt4i 
200 , f f -*£EMM£j£i)Ctro (20®^ ) 

210 S = 360/20/5: FORJ = 1TO20 

220 POLY (320, 100) ,90,4, 144 , 90+J*S , 720+90+J*S : ’ M 1 & £ £ < 

230 PAINT (0,0) ,2,4: PAINT ( 320 , 100) , 1,2 
240 GOSUB"EMMW-NM" :CLS4 



164 umz&z>xi 



250 NEXTlBEEP 
260 » 

270 INIT : CLS4 :F=0:Q=0:B=0 

280 OUT&HD00 , 0 : OUT&HD0 1,0: OUT&HD02 ,0: ’ E M M © 1*1 S5 7 K 1/ X £ 0 \Z ? 0 

290 Q=( (Q+1)AND7) :B=( (Q+1)AND7) 

300 FORJ = 1TO20 

310 IF 0 GOSUB " EMMR-NM" ELSE GOSUB"EMMR-NM-2 " : ’ & * ^GRAM^te&^^o 
320 NEXT : GOTO 280 
330 END 
340 ’ 

350 LABEL "EMMW-NM" :’GRAMi'6 
360 D$=USR0(HEXCHR$( "4000" ) ) 

370 RETURN 
380 1 

390 LABEL "EMMR-NM" E M M G R A 5 o 

400 D$=USR1 (HEXCHR$( "4000" ) ) 

410 RETURN 
420 * 

430 LABEL"EMMR-NM-2 " :’iffiX7'yf>^t|t^^6EMMi!l'6GRAMAfi^t5o 

440 IF F THEN 480 

450 D$=USR1 (HEXCHR$( "4000" ) ) 

460 PALET0 , B : PALET1 , Q : PALET2 , B : PALET3 , Q 
470 GOTO 500 

480 D$=USR1 (HEXCHR$ ( "8000" ) ) 

490 PALET0 , B : PALET1 , B : PALET2 , Q : PALET3 , Q 
500 F=(F=0) : RETURN 



U* h 8-12 EMM«->G-RAM 









. PHASE 


0E000H 








. Z80 








; STAR 






E000 


FE 03 


) 


CP 


3 ; CHECK VAR . TYPE 


E002 


28 04 




JR 


Z, OKGOl ; HL POINTS. INT.? 


E004 


3E 0D 




LD 


A, 13 ; TYPE MISMATCH 


E006 


DD E9 




JP 


(IX) ; ERROR ROUTINE 


E008 


EB 


OKGOl : 


EX 


DE , HL 


E009 


46 




LD 


B , ( HL ) ; HIGH 


E00A 


23 




INC 


HL 


E00B 


4E 




LD 


C , ( HL ) ; LOW 


E00C 


21 4000 




LD 


HL , 4000H ; COUNTER 


E00F 


D9 




EXX 




E010 


01 0D03 




LD 


BC , 0D03H ; EMM DATA 


E013 


D9 


9 


EXX 




E014 


ED 78 


LOOP1 : 


IN 


A , ( C ) ; FM GRAM 


E016 


03 




INC 


BC 


E017 


D9 




EXX 




E018 


ED 79 




OUT 


(C) , A 


E0 1 A 


D9 




EXX 




E01B 


2B 




DEC 


HL 


E01C 


7C 




LD 


A , H 


E01D 


B5 




OR 


L 


E01E 


C2 E014 




JP 


NZ , LOOP 1 


E02 1 


C9 




RET 




E022 




9 


DS 


14 ; DASAI 


E030 


FE 03 


* 


CP 


3 ; CHECK VAR . TYPE 


E032 


28 04 




JR 


Z , 0KG02 ; HL POINTS INT.? 


E034 


3E 0D 




LD 


A, 13 ; TYPE MISMATCH 


E036 


DD E9 




JP 


(IX) ; ERROR ROUTINE 


E038 


EB 


0KG02 : 


EX 


DE , HL 


E039 


46 




LD 


B , ( HL ) ; HIGH 


E03A 


23 




INC 


HL 


E03B 


4E 




LD 


C , ( HL ) ; LOW 



DMA 165 



E03C 


D9 




EXX 






E03D 


21 


4000 


LD 


HL , 4000H 


; COUNTER 


E040 


01 


0D03 


LD 


BC, 0D03H 


; EMM DATA 


E043 


ED 


78 


LOOP2: IN 


A , ( C ) ; FM EMM 




E045 


D9 




EXX 






E046 


ED 


79 


OUT 


(C) , A 




E048 


03 




INC 


BC 




E049 


D9 




EXX 






E04 A 


2B 




DEC 


HL 




E04B 


7C 




LD 


A , H 




E04C 


B5 




OR 


L 




E04D 


C2 


E04 3 


JP 


NZ , LOOP2 




E050 


C9 




RET 












END 







F) i) * h 8-13, 8-14 (r + X hX? n— ;l/) 

S8CW3 C0/D^7AS:3l^5t, 

IS-fbttS. £*ttt=o©(Ea& (r*X h VRAM, T h V ta- K 81^ VRAM) ©He 
R$Ma**fcSfc«>. ^>£9 "SETDMA" **av»^e>T2bSo 

U ^ h 8-13 7+^M?n-^777' 

10 RESET$=HEXCHR$(”C3 C3 C3 C3 C3 C3"):’ ') HZ >y h T - 9 
20 ’rAXHVRAM 



30 

40 


DMAS = RESET $ + HEXCHR$ ( ’ 
’7MJh'a-F 


"7D 


50 


30 


7F 


07 


1C 


18 


CD 


00 


30 


9 A 


CF 


B3 


00 

-o 


50 

60 


DMA$=DMA$ +HEXCHRS ( ’ 
* M & v R A M 


"7D 


50 


28 


7F 


07 


1C 


18 


CD 


00 


28 


9A 


CF 


B3 


87") 


70 

80 


DMA$=DMA$ +HEXCHRS ( ’ 
GOSUB" SETDMA" 


"7D 


50 


38 


7F 


07 


1C 


18 


CD 


00 


38 


9 A 


CF 


B3 


87") 



90 END 
100 ’ 

110 LABEL"SETDMA" 

120 FORI= 1TOLEN ( DMA$ ) : OUT&H1F80 , ASC ( MID$ ( DMAS , I , 1 ) ) : NEXT 
130 RETURN 



■J* h 8-14 x + x bz? 



10 RESET$=HEXCHR$( "C3 C3 C3 C3 C3 C3" ):* «J -fe 'V h T ~ ^ 
20 ’r4rX NVRAM 



30 

40 


DMA$=RESET$+HEXCHR$ ( "7D 
' 7 b ') t: a - h 


7F 


37 


7F 


07 


0C 


08 


CD 


CF 


37 


9 A 


CF 


B3 


87 


50 

60 


DMA$=DMA$ +HEXCHRS ( " 7D 
’ m & V R A M 


7F 


2F 


7F 


07 


0C 


08 


CD 


CF 


2F 


9A 


CF 


B3 


87 


70 

80 


DMA$=DMA$ +HEXCHRS ( " 7D 
GOSUB "SETDMA" 


7F 


3F 


7F 


07 


0C 


08 


CD 


CF 


3F 


9 A 


CF 


B3 


87 



90 END 
100 » 

110 LABEL "SETDMA" 

120 FORI= 1TOLEN ( DMA$ ) : OUT&H1F80 , ASC ( MID$ ( DMAS ,1,1) ) : NEXT 

130 RETURN 



G) V* h 8-15 (±8F^^77^^X^n-;i/) 

£*Ui8 Fy h^77>f 
4050 h — 477F h -+4000 h — 472F„ 



766 



4850h~4F7F h -4800 h ~4F2F h 



7850 h ~7F7F h ^7800„~7F2F h 

t H^K 8 S/n XI ©X*7 ©ffifffc 7 F 

w- X ©H8f£;d>> :o7 , n^5A?BY 192~199 

cSfc4T®S® 874 yfl-tt*©!; £SU©t% 140 fr©-^- X/WHr©¥tI£ 95 <• 
6v»k: 7S k=f s^ttiSo 

0 Ah 8-15 ±8 Kv F ^77-f yXXXp-;u 



100 DEFINT A-Z 
110 CLEAR&HDFFF 
120 DEFUSR0=&HE000 

130 MEM$ ( &HE000 ,12) =HEXCHR$ ( " 78 EB 01 80 IF 04 ED A3 3D 20 FA C9") 
140 INIT:CLS4: CIRCLE (320, 100) ,60,6 
150 PAINT ( 320 , 100 ) , &H26 , 6 

160 SYMBOL ( 282 , 1 00 ) , " $g T t " » 2 , 2 , 7 , 0 , PRESET 
170 1 



180 


RESET$=HEXCHR$ ( "C3 C3 


1 C3 


C3 C3 C3 " ) : 


: ’ 1 j 4Z ')/ h 


T “ 


* 








190 


’ w ■ ffl 




















200 


DMA$=RESET$+HEXCHR$ ( " 


7D 


50 40 7F 07 


1C 18 CD 00 


40 


9A 


CF 


87" 


) 


210 


DMAS = DMA $ 


+HEXCHR$( " 


15 


48 


C9 


48 


9A 


CF 


87” 


) 


220 


DMA$=DMA$ 


+HEXCHR$( " 


15 


50 


C9 


50 


9A 


CF 


87 " 


) 


230 


DMA$=DMA$ 


+HEXCHR$ ( " 


15 


58 


C9 


58 


9A 


CF 


87 " 


) 


240 


DMA$=DMA$ 


+HEXCHR$ ( " 


15 


60 


C9 


60 


9A 


CF 


87" 


) 


250 


DMA$=DMA$ 


+HEXCHR$ ( " 


15 


68 


C9 


68 


9A 


CF 


87" 


) 


260 


DMA$=DMA$ 


+HEXCHR$ ("15 


70 


C9 


70 


9A 


CF 


87" 


) 


270 


DMA$=DMA$ 


+HEXCHR$ ( " 


15 


78 


C9 


78 


9A 


CF 


87" 


) 


280 


* ^ M ® 




















290 


DMA$=DMA$ 


+HEXCHR$ ( " 


15 


80 


C9 


80 


9 A 


CF 


87" 


) 


300 


DMA$=DMA$ 


+HEXCHR$ ( " 


15 


88 


C9 


88 


9 A 


CF 


87" 


) 


310 


DMA$=DMA$ 


+HEXCHR$ ( " 


15 


90 


C9 


90 


9 A 


CF 


87" 


) 


320 


DMA$=DMA$ 


+HEXCHR$ ( " 


15 


98 


C9 


98 


9 A 


CF 


87" 


) 


330 


DMA$=DMA$ 


+HEXCHR$ ( " 


15 


A0 


C9 


A0 


9 A 


CF 


87" 


) 


340 


DMA$=DMA$ 


+HEXCHR$ ( " 


15 


A8 


C9 


A8 


9 A 


CF 


87" 


) 


350 


DMA$=DMA$ 


+HEXCHR$ ("15 


B0 


C9 


B0 


9A 


CF 


87" 


) 


360 


DMA$=DMA$ 


+HEXCHR$ ( " 


15 


B8 


C9 


B8 


9A 


CF 


87" 


) 


370 


’ ffi 




















380 


DMA$=DMA$' 


+HEXCHR$( " 


15 


C0 


C9 


C0 


9 A 


CF 


87" 


) 


390 


DMA$=DMA$ 


+HEXCHRS ( " 


15 


C8 


C9 


C8 


9 A 


CF 


87" 


) 


400 


DMA$=DMA$ 


+HEXCHR$ ( " 


15 


D0 


C9 


D0 


9A 


CF 


87" 


) 


410 


DMA$=DMA$ 


+HEXCHR$ ( " 


15 


D8 


C9 


D8 


9A 


CF 


87" 


) 


420 


DMA$=DMA$ 


+HEXCHRS ( " 


15 


E0 


C9 


E0 


9A 


CF 


87" 


) 


430 


DMA$=DMA$ 


+HEXCHR$ ( " 


15 


E8 


C9 


E8 


9 A 


CF 


87" 


) 


440 


DMA$=DMA$ 


+HEXCHR$ ( " 


15 


F0 


C9 


F0 


9 A 


CF 


87" 


) 


450 


DMA$=DMA$ 


+HEXCHR$( " 


15 


F8 


C9 


F8 


9 A 


CF 


87" 


) 



460 FORK=0TO20 : D$=USR0 ( DMA$ ) : NEXT 
470 END 



H) 'JX F 8-16 (£8 Ky F X'X X -i 7 XXX v~;v) 

4001h~7FFFh — > 4000h~7FFEh 
8001h~BFFFh— > 8000h~BFFEh 
C001h~FFFFh- > C000h~FFFEh 

©3 0XD Xlcii^tTv^o 80® (640 K y F ) &^X 

X d -; vf 5 t 8 K y F a.±* 5 o t U a . 

Sg8£ DMA 7(57 



XMfeZifc-^XfrtZo 210fif>htfX*>XhX o USR1 Cf8 F y 
2&J J:v^ 0 ■y-yX’/l'tpTlZ 80 £jgLT$>-5 0 SfrCQV-XU'J X b 8-17 

T$>6 0 *'dm$>0 t$>6@Z&l^&i£^XMMit,LXfrtzfr-otz<D?ztf, Se&o'£ < 
t£Z><DX°mtftz<DX'h % 0 b-oth, Z.(D J X'yf)\s(D£*)\Z., BC t B'C'^V-Xtf-f X 
r-f >fcm0%XZ>(Dtf— #a^fc®5o 

UXK8-16 *8 K*y h?77-( y^X^a-JU 



100 


DEFINT A-Z 




























110 


CLEAR&HDFFF 




























120 


DEFUSR0=&HE000 : DEFUSR1 =&HE100 




























130 


MEM$ ( &HE000 ,12) =HEXCHR$ ( " 78 EB 


01 


80 


IF 04 


ED 


A3 


3D 


20 


FA 


C9 " 


) 








140 


INIT:CLS4: CIRCLE (320, 100) ,60,6 




























150 


PAINT ( 320 , 100) , &H26 , 6 




























160 


SYMBOL ( 266 , 100 ) , " g # T t " , 2 , 2 , 


7 , 


0, PRESET 






















170 


’ 




























180 


RESET$=HEXCHR$ ( "C3 C3 C3 C3 C3 


C3 " ) : 


’ y 


/ h 


T ~ 


* 














190 


'f iffi 




























200 


DMA$=RESET$+HEXCHR$ ( " 7D 01 40 FE 


3F 


1C 18 


CD ( 


30 


40 


9 A 


CF 


87") 










210 


* ^ M 80 




























220 


DMA$=DMA$ +HEXCHR$ ("15 80 






C9 




80 


9A 


CF 


87" ) 










230 


* Hi is m 




























240 


DMA$=DMA$ +HEXCHR$ ("15 C0 






C9 




C0 


9 A 


CF 


87" ) 










250 


TIME=0 : FORK=0TO80 : D$=USR0 ( DMA$ ) 


: NEXT 


: PRINT 


"BY 


DMA 


= 


" ; TIME 










260 


1 




























270 


MEM$ ( &HE1 00 , 16 ) =HEXCHR$ ( "FE 02 


28 


04 


3E 0D 


DD 


E9 


7E 


B7 


C8 


57 


01 


00 


40 


CD" ) 


280 


MEM$ ( &HE 1 1 0 , 16) =HEXCHR$ ( " 23 El 


01 


00 


80 CD 


23 


El 


01 


00 


C0 


CD 


23 


El 


15 


C2 " ) 


290 


MEM$ ( &HE1 20 ,16) =HEXCHR$ ( " 0C El 


C9 


78 


D9 47 


0E 


01 


21 


FE 


3F 


ED 


78 


03 


D9 


ED" )’ 


300 


MEM$ ( &HE1 30,11) =HEXCHR$ ( " 79 03 


D9 


2B 


7C B5 


C2 


2B 


El 


D9 


C9 " ) 










310 


TIME=0 : D=USR1 ( 80 ) : PRINT"NOT BY 


DMA= " 


; TIME 























•JX h 8-17 DMA *&*>? l:j'77< •y^X^P-.H, 



•PHASE 0E100H 
. Z80 



; GRAPHIC SHIFT TO LEFT 



E100 


FE 02 




CP 


2 ; CHECK VAR. TYPE 


El 02 


28 04 




JR 


Z , OKGO ; HL 


POINTS INT. 


E 1 04 


3E 0D 




LD 


A, 13 ; TYPE MISMATCH 


E106 


DD E9 




JP 


(IX) ; ERROR ROUTINE 


E108 


7E 


OKGO : 


LD 


A , ( HL ) : 0-255 


E 1 09 


B7 




OR 


A 




E10A 


C8 




RET 


Z ; 0 TIME 


E10B 


57 




LD 


D , A ; COPY TIMES 


E10C 


01 4000 


LOOP0 : 


LD 


BC , 4000H 


; BLUE 


E10F 


CD E 1 23 




CALL 


SHIFT1 




El 12 


01 8000 


’ 


LD 


BC , 8000H 


; RED 


El 1 5 


CD El 23 




CALL 


SHIFT1 




El 18 


01 C000 


* 


LD 


BC , 0C000H 


; GREEN 


E11B 


CD E 1 23 




CALL 


SHIFT1 




E 1 IE 


15 


’ 


DEC 


D 




El IF 


C2 E10C 




JP 


NZ , LOOP0 




E 1 22 


C9 




RET 


;ret 


TO BASIC 






; SUBROUTINE 


BC=TOP OF PAGE 


E123 


78 


SHIFT1 : 


LD 


A , B 




El 24 


D9 




EXX 






El 25 


47 




LD 


B , A 




El 26 


0E 01 




LD 


C,01 ; B ’ C 


’= SOURCE 


E128 


21 3FFF 




LD 


HL, 3FFFH 


; COUNTER 


E12B 


ED 78 


LOOP1 : 


IN 


A , ( C ) ; GET 


1 BYTE 


E 1 2D 


03 




INC 


BC ; INC 


POINTER 


E12E 


D9 




EXX 







168 KKKfflSXl 



E12F 


ED 


79 


OUT 


(C) , A 


;COPY 1 BYTE 


E 1 3 1 


03 




INC 


BC 


; INC POINTER 


E132 


D9 




EXX 






El 33 


2B 




DEC 


HL 


; DEC COUNTER 


El 34 


7C 




LD 


A , H 




El 35 


B5 




OR 


L 


; CHECK COUNTER 


El 36 


C2 


E12B 


JP 


NZ , L00P1 




E139 


D9 




EXX 






E13A 


C9 




RET 




; RET TO MAIN ROUTINE 



END 



I ) ') 7 b 8-18 (± 1 F y b if y 7 a v 7 7 7 n —JU) 

#fiE±T£-3&&fT<&fc o 200 0x^ d-;i <-$% k5ECl55*?»tT**o ^ >j 

© E100 H #ift^6 E8CF H £T© 07CF H + 1 'nM F^7-^x'J7 (^* 777 ) CLtV'5 
:0t>7’;i//D/7A©j:i *§-£•&;:« if 5 Lt^Mt 

£>£„ ^©h^te, 1 7^f >(D77 7(i 80 /nM b?£ftf©*£ 

* 5 , * 51 - a aftci^TLss,, 

79 H Jitf- b B-»jK- b A^OteJaSSJijefrvsSo 

•j ^ h 8-18 ±1 K*y ^7 7-f ‘y^X^p-;u 



100 DEFINT A-Z 
110 CLEAR&HDFFF 
120 DEFUSR0=&HE000 

130 MEM$ ( &HE000 ,12) =HEXCHR$ ("78 EB 01 80 IF 04 ED A3 3D 20 FA C9") 
140 INIT : KLIST0 : CLS4 : CIRCLE (320, 100) ,60,6 
150 PAINT (320, 100) ,&H62 

160 SYMBOL( 282 , 100 ) , " i T t " 1 2 , 2 , 7 , 0 , PRESET 
170 * 



180 

190 


RESET$=HEXCHR$("C3 C3 C3 C3 C3 C3") 
’ffil 


: * U Hr 


v h 




T “ 


■ * 










200 


DMA$=RESET$+HEXCHR$ ( "7D 


00 


40 


CF 


07 


1C 


10 


CD 


00 


El 


9A 


CF 


87" ) : 


’TO 


MEM 


210 


DMA$=DMA$ +HEXCHR$ ( " 7D 


00 


48 


CF 


37 


1C 


18 


CD 


00 


40 


9A 


CF 


87" ) : 


’ IN 


VRAM 


220 


DMA$=DMA$ +HEXCHR$ ( " 79 


00 


78 


7F 


07 


1C 


10 


CD 


50 


El 


9A 


CF 


87" ) : 


’FM 


MEM 


230 

240 

250 


DMA$=DMA$ +HEXCHR$( "79 
’ ^ ll ® 

DMA$=DMA$+RESET$ 


80 


7F 


4F 


00 


1C 


10 


CD 


00 


El 


9A 


CF 


87") : 


’FM 


MEM 


260 


DMA$=DMA$ +HEXCHR$("7D 


00 


80 


CF 


07 


1C 


10 


CD 


00 


El 


9A 


CF 


87" ) : 


’TO 


MEM 


270 


DMA$=DMA$ +HEXCHR$("7D 


00 


88 


CF 


37 


1C 


18 


CD 


00 


80 


9A 


CF 


87" ) : 


'IN 


VRAM 


280 


DMA$=DMA$ +HEXCHR$( "79 


00 


B8 


7F 


07 


1C 


10 


CD 


50 


El 


9A 


CF 


87" ) : 


’FM 


MEM 


290 

300 

310 


DMA$ =DMA$ +HEXCHR$( "79 
* $ M ffi 

DMA$=DMA$+RESET$ 


80 


BF 


4F 


00 


1C 


10 


CD 


00 


El 


9A 


CF 


87" ) : 


’ FM 


MEM 


320 


DMA$=DMA$ +HEXCHR$ ( " 7D 


00 


C0 


CF 


07 


1C 


10 


CD 


00 


El 


9A 


CF 


87" ) : 


’TO 


MEM 


330 


DMA$=DMA$ +HEXCHR$("7D 


00 


C8 


CF 


37 


1C 


18 


CD 


00 


C0 


9A 


CF 


87" ) : 


’ IN 


VRAM 


340 


DMA$=DMA$ +HEXCHR$( "79 


00 


F8 


7F 


07 


1C 


10 


CD 


50 


El 


9A 


CF 


87" ) : 


’FM 


MEM 


350 

360 

370 


DMA$=DMA$ +HEXCHR$ ( " 79 80 FF 4F 
FORK= 1TO200 : D$=USR0 ( DMA$ ) : NEXT 
END 


00 


1C 


10 


CD 


00 


El 


9A 


CF 


87" ) : 


’FM 


MEM 



J ) ') 7 b 8-1 9 (± 2 b* >7 b ?7 7 A y 7 X 7 n -;u) 
znbWM^±T^:^^<ifXh6o LT±-< MT^-5 k&tfX u£ < 

ot^5 0 £ £ DMA T^'7 7 a "A 7 dELV^ 

•J h 8-19 ±2 K-y h >77< -y?X*D-;u 

100 DEFINT A-Z 
110 CLEAR&HCFFF 
120 DEFUSR0=&HD000 

130 MEM$ ( &HD000 , 12) =HEXCHR$ ( " 78 EB 01 80 IF 04 ED A3 3D 20 FA C9" ) 



m 8 m DMA 169 



140 INIT:KLIST0 :CLS4 : CIRCLE ( 320 , 100) ,60, 2 
150 PAINT( 320 , 100) , 2 , 2 

160 SYMBOL (24 0, 100 ) , " ifc tl & ± ^ , 2 , 2 , 7 , 0 , PSET 
170 ’ 

180 RESET$=HEXCHR$ ( "C3 C3 C3 C3 C3 C3"):’ \) -fe y h T - * 

190 * w m 



200 


DMAS = RESET S+HEXCHRS ( "7D 


00 


40 


CF 


07 


1C 


10 


CD 


00 


E0 


9 A 


CF 


87") : 


: ’TO 


MEM 


210 


DMA$=DMA$ 


+HEXCHRS ( " 7D 


00 


48 


CF 


07 






CD 


00 


E8 




CF 


87" ) : 


: ’TO 


MEM 


220 


DMA$=DMA$ 


+HEXCHRS ( " 7D 


00 


50 


FF 


2F 




18 


CD 


00 


40 




CF 


87" ) : 


: ’ IN 


VRAM 


230 


DMA$=DMA$ 


+HEXCHR$( ”79 


00 


70 


7 F 


07 




10 


CD 


50 


E0 




CF 


87" ) : 


: ’FM 


MEM 


240 


DMA$=DMA$ 


+HEXCHR$( "79 


00 


78 


7F 


07 






CD 


50 


E8 




CF 


87" ) : 


: ’FM 


MEM 


250 


DMA$=DMA$ 


+HEXCHR$( ”79 


80 


77 


4F 


00 






CD 


00 


E0 




CF 


87" ) : 


: ’FM 


MEM 


260 


DMA$=DMA$ 


+HEXCHR$( "79 


80 


7F 


4F 


00 






CD 


00 


E8 




CF 


87") : 


: ’ FM 


MEM 


270 


’ ^ 0 ffi 
































280 


DMA $= DMAS + RESETS 






























290 


DMA$=DMA$ 


+HEXCHRS ( " 7D 


00 


80 


CF 


07 


1C 


10 


CD 


00 


E0 


9A 


CF 
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fe&SS&T&So /iff L XI © 3 d 1 yf-FX-f7*tt ^© J: 5 * £ MiMfM 

*<, f-fXX^IILtX'yhtJItlitt^v^ 

&(Cfe®ffMK7a>TT"#)£o 

ffttis, 2 D* FOfSCOVi tpl 7 t <0 5^KftfV>TV>4$C : ? : «, 

r i j *''*® 
r 2 j a*®® 

&jf¥ftLT^£ 0 

ifcCfiTXi'X r^y F*J 1 b L < (i 2 **, iFUi, 

rSj = ^.^'^(Single density) 
rDj=««JS (Double density) 

TddJ = (h )77 X(ni£/S (Double track Double density) 



i78 aetata 4 xi 



rHDj=®&5(High Density) 

com 

t-f, frlkMiOitibS^, 

h&o frMFxd' x'tjSjffiFxd’ y<DMH, WtZfc y-F/x'f WS©^ K*i — ■ otitf 
&, Ztlb Tf^T^-S^TiSo tzti Lp5® F x ■i y'<D — F 

^Lffiiac (ifchxxX#) 1*#tTV»S 0 

ifeKrsj, rDj4ifc-3v»TTJbs 0 ztuttt\ rsj tr-toflu carats, rs= 

#Sf£J »±S!l£ rFMIB^^T^J TiD, rsj [MFM tBitig^j Ti 

^>o FM it [Frequency Modulation] () S«»3ESRf5$) ©1ST, £;H«x SF:*© FM i: 
^CT|)5 0 o^ D FM t fix ItttiWDZ. b T«&U©Ti£„ ZtUZ% fLT, MFM & 
[Modified Frequency Modulation J TS>£ 0 Modified ti, RKE^tl/cJ h x ± -5 & 
McTiS 0 f¥ U» - t FM fBUdj^TtiX n fc 

^ Xf-lS, 2S£fc*©f§lgT8, [ /s = 0. 000008#) rtcfi'fi, ^©FbI 
Cf- XglO/'Di'Xasifxtf T 1 J, [ 0J Tie (r-Xlil t*y Ftffid) 0 & 

-tf efx^FM ±p|3 [ 1 J ^#V^c^-nli/N°^X©raPB^4 AS jj- 

1<- D T [0J t ^ ©[^[Hli 8/zs Ti e o Tii?)7'?./i-'X©3|?SJq| 
$** 4jus 8/us #>T 1 , 0 RESULT e©fB 0 *f*»6*o tf 9 JS»»*»|=FM Tfc 

e D 

MFM lit* -5 taaot^b v* 5 fc, ClO^j^ttASlC fc, [bu©t-X;£F 0 T, 

©T-X 0 &£lf, Mfc?ny^/\';i,x&A*t.2>o 

tVi-5 e tCftoT^o e©i a CfciELT** fc, rt>ofcfcWBI©lfcV> 
/^X©HJ « FMM0 8 £© 2®C*S 0 b&tUi, tV XX©ffi4#i:^'y F©14 
Ib©^(i2fgc^e (i^siiTte— o©/^wx©F4PH* 5 [tttbJ T*e) 0 eeTSot 
F £««©*£**, X □ 9 ^^XOlBIIBt Anfctia*®* 
^#:*2#FCUT J ¥>S 0 £ftT«tt# J ¥>'sy F©tttBtt**»CPIi; & £ *©K 

SCf-^^tiT^S: fcC*S 0 = 

MFM T* So XoyXtfy h*aacM5l< ifc*©T*5 0 RttD 

*, ?R xx©B<EfcliSI!*®tti,* < &£ tvOM^^tHT < 6T&55 {%. 

R)D). U^trVXXC#^fxTv^e©«r-XycldT«*<, ii £ iC|R]J$£ 
&Sfc*©^*'*;FX kt^flT^T, i^i®n^#§;iFT§e©TiSo 
© r»7t“?7 FJ ©BfTRWtSo 
ifcC [DDJ, [HDJ fcoUTOBMBTfcS. rDD = fg F 7 x Xfgg'gJ T&S#, 

r 4 XXicid F x x X RR &©**£>£ e fcteftloT^e/ie x 0 ettli 

A-AX-^X©^*^^l)©ti.? 1 „ u©[7 y XC[&-oTr-X^'#^tie©/B 
*5, fg F x x X 1 VR ©lie© 8 X x X©WPI&¥#K IT, iSt^igClR i>©Ti§ 0 
HS)B, fctfc 2 flSfK*S 0 

®SW* THDJ £**, £*Ui 8 4 XftBCiSi 5 -f yfKjfoTSfcfcOTSS. F 
x x XiScti 2D b 2DD ©t^WTiS**, ''DUX^P!** 2j*s b, 0 , 1 F x x X S 

* 9 ¥ x n > y e— 7* 4 x X 770 



tz 0 (DT — ftf# ZtltiZi: V 2DD CD$J 1.5 ia t & -5 0 

Jil±, £.tl<Itt#Vifc*i\ famt LtfiSfflB, 8 -! yf-^©r ^ XX«M?&i-)i 

tv^-5 - fcT'ifc&o btilt, iij$Cgffi*S[p]±LT^?» 

££ 3 Z(Dffeif—%:Z<Dfr%Z.'Cfrtztztf'Cb]8<?>L^Wi9~C$>2>o ftjfiT 

ti 2 -f yf-h^fetbTi^to 

(J) ltd’ K (side) 

ihlOiOittfeSo FO, l# 5 £>£o 

(D )7'y? (track) 

lJl^-Or-^^JU'o 

2D«1^M FS* 0 40 FxyX, 2DD«1-*M F^tzV 80 h7^, 2HD « 1 -<M 
F Sfc 0 77 F 9 y 7T£>& 0 t4 F 0, 1 £ & t &>X$L%.X, T2D It 80 F 9 7 

X, 2DD H 160 FxyXJ & h*fclf ?*4§'a* 5 £>-2>#s riSfifLT < tHo 

TV^CDiillUT^So T§*Uf, T2Dtt— o©-9--f FSfc9 40 F 77 XT, 1M Ftt— 

*MB*6 0#, 1# bWLi-io 

%**E, 1M F 0 fc im »g©(£®(i#F7 7XT4*#(2DDT«8*)-fftT 
-5 0 iM F 0 Z filthy F® •&{!**■?■ bZ b 4 ;fc£F (8$#) i*ti 

'Z^Z>tz>sb'ChZ> 0 b(D-ftilt, t J Z 7 5 %-Vli£ -otz <MWit &>j&^lit%:'' : ‘o 

F9y^ME»tt— JST. *9-3 CittU!)ti&5o -©-M' 
£ fc, FDD hVi^ fe ©*i*i®V if|g h "f 5 T 'J X- F ft feCDTjeg) Z. %ti*> 

9o 



« 9-3 x-f r 1-45 It 5 h 9 -y ^SESS 



it < X 


h =? "j ^fB^PS(mm) 


8 0* 


0.529 


5-f>t(2D) 


0.529 


(2DD, 2HD) 


0.2646 


3.5 -f >f-(2D) 


0.375 


(2DD, 2HD) 


0.1875 


3 < >9- 


0.254 



© S' U > ¥ (cylinder) 

if -f F 0 , 1©P1U##0 F 7 7 X £#H±T 1 '>0 2D ©*§-£•& lft©fi 

X X C 40 S' !) V ¥h o v' 0 > X* (> F 7 y X fc liHUcXMU* 1 £ 0 #, 1 # 

i:3&;i&o 
?so •& xi 



(D 'fe 7 7 (sector) 

frTh&o 5 4 >3~<D 2D, 2DD 1 b x -y 7 (frffi) Mt: 0 16 -fe 7 7 T$> 5„ -fe 

7714 b?y7 tit''*, 1#, 2#, **. -fe77©l&(4 

16f@fc(4K£>&i/> o 5'f>5 L ©2D04fck&7;i- — v -y b 7^(4, 1 -fe 7 7 0#it£ 256 '•? 
-f b, 512 'nM b, 1024 bCD^^S^So ^T, 1 b7y7tp 

©4:77®i&t4 16, 9, 5 fc*9, T4X7 ltScafc5O**tt320K^ b, 360K^M 
b, 400 K'nM b fc*So fcflfLU&T, 1 b7y?C17-fe^^^ofc9tliii;fenI 

8 4" 7^ 2D t 2HD ©!§-£•, -fe7 7©^i:fc, 1 b 7 >y 7 (fr®) MS* 9 ©-fe 7 7ffc 
(4, 256'M b-*26-lz7 7, 512^M b^ 15 -t?77, 1024 b-» 8 -tr 7 7 t &3 0 

l-fe77« 1024 'nM bKlt, lftMS* 
t)©S** 400K^>f bfc*^S;£Jfc#*S!&»fct*i,*Vi*», 

*>t) hI4K££v> 0 *— E#|*#3tt 1 *77 rfcCfr*fc*tfMf*6*^©t\ ^y 
7 7lilK^4 b&SC&So SfcKtt, l-lr^^*R**8-rSKFrafeJI< *5 0 *£®t 
4 X 7 0^*14 2 Slitter S n*77 256 'nM b©7*-v>y b 

T, tC4-b^^4S fcftTlB**#bTV»SJ 0tWfcJ:54:i:C4oTL3i5©? 
£>&<> 3 6Ctt, fl&WB*. DOS fc0r-75*tt*i?«>MJBK:*oT< £ 0 

$i^UAS HU k 

# MS 14 7*4 X^xf^ 7 £ic4t 5 ^ §*©;£»& <1 tKl 

fco »*ffiUT*^-rs*f»tT*tU4BASICC#Jl0 "Device dump" tffcS**, *# 
&*©»«:« 3!Bi C 7 - /P**£g C * 5 o 



Tl*. JS «3 

£-f(4Xl HuBASIC © V 7 bJf)*7t-vy bCO^Tf < 0 

— <8WC, 7nytf-f^X^07t-Yy btVi5t2tHDIi5„ r$®7*-v 
7 b J t r V 7 b 7 t bj T*S)-So tll7t-V7 b fcv>-5©f4, r-f X7>y b± 
Ctf*&*i*E£iIi©J: a &fc©T£>£ 0 hu^L/c 4: 5 C, 1 * 7 7©#it* t**^Sl7 *- 
vybKivTftJ!)6n5, BASIC "FORMAT & COPY. Uty" W® 

S7t-vy b^f-f X^y bC*§atf*>»T*S 0 t)ffl7^--T'y b hi 1 b7yX:* 

flOf'-^tia^tS^.So M 547f© 
2D, 2DDT(4, 1 b?y*#07*--Ty b*R5g-r*Ctt, 6.25 K /nM b ©r-7 £ 
*Stt^o 

7 7 b 7*“V.y btl^Oli, T7 r d ^O^blHffJ ^ |TPL jg®rf S 7 r 4 >P 
(4, 7©<4 -5 ftfStr 4 Xt >y b fo&nj &£"£•$£>& feOT 

* 9 * 7 a -y h“-f'y X X /«/ 



£>&o 

XI ©y 7 t'W47t-7 y F 3 

© ©flf ill 

(D FAT(File Allocation Table)©$tit 

(D IPL^ffijyP^'^ACO^ 

otv^J fcv»^;:k*if*|BI»bT26sa5«‘T*4o 7r^HWCfc, 7r^® 
3*. *S&*ft;fcBtffcIf fefcSo 73 £ y£^|© J: a ^fe©T-*>§0 (D© FAT 
fi, ^£r-r A?© if ©SB#** if© J: 5 FrfEbttT AT, 

W^TJbSo (D®IPL®rn^9AJBjett, T -t A? F y©-«;«fcJB*.tfJ:tr», T(it 

•f, r-f 1 /? f y ©i^sj*^^*5 0 

y ©Jffittift 9-4 (turbo © USER’S MANUAL J: 5 -g&^M) T£>3 0 - 
o©r y i/? F y (i 32=20 h AT F *:> £ # -2> „ T’H'Co^'TOtuC, 1/3 — FU^-fc ? 7 

l/n- F##tt 5 T 7f 2D t 3 T 7f 2D -Ctt£®T 16 x 
2 x40=1280fB*5'fe^^K#^*^ttfcfe©-e, 

1/ 3 — K #‘^ , = (-fe :7 — 1 ) 

+ (l'777#fX 32) 

+ (1M F##X16) 

T£>§ 0 73 g y , 

(7770, -y-T F 0 
(777 0, iM F 1 
(7771, TT F 0 
(7771, t"f F 1 



fc ©T&3o 

T'yXi? tA^Ott, 16 £ tftCLfcfcOT, FILES ffHr© k SC tib T < 

•5 T O A Clusters free J © Cluster T£> -5 „ H 0 ? 7 X ;? f£H 0 ~15 1/3 — F, #!©iSl 

??X*ttf|il6~31 1/3- F fc*So liol OfoT 5 7f 2D t 3 2D T 

»±, (777 1 ^ OtB) T&Zo 

ZZTT't U? F 'JQtpgCQMW-C&ZAKBOs-tJ Mi7 r T A'© 7 F 'J tfa-F(JS 

ttliwUVJi, St'7 hrkC*i***tl9iBe>n-CV»40^**, 00 h L FF H /cUtt1tS0 

t, oo„tt kill ^ntzyr-i > v, ff ■< w 

F y©i«?|iS:i;§Tt. 73 1 QMO'U F^'FFhT i/X F iJWtcai^o 
tzb, t A 3 £ fc Tibs, 

St*7 ( OSBfeti&K: $>6 tio 9 tztf, turbo TPtBffcr ^7 0 ZtltzZk 

KiD, tnSTXl TffiC^oTV^;g7 tfy F 5 ST ^nfcjjStca*, *fc, H 
i 82 tmcmi) xi 



IS 9-4 x-f l-'X F UXlrtg 





rt § 






«i^^-r 0 


00 It KILL $ntz7 T'Oi'Z FF 

littfflxi' UX F 'Jx-7*JK7)**b3iL 






bit 0 ft' 1 


Bin y Ji'imutsr-t^ntzy t ' f Jiy) 






bit 1 ^ 1 


Bas 7x'l'7L(BASICx*X F X-mti'htzy 7 -f 7b) 


O'W h g 




bit 2 A< 1 


Asc 7 x -< 7U-(ASCil -b-7'$nfc7 t 'OU) 




bit 4 ^ 1 


FILES T-*^L4X' : 0 -iiTli 






bit 5^1 


0- K77b-7-f F ON : 0 -OFF 






bit 6 ^ 1 


*#ix*.«A7 p-rtu : o-- *#;a*ok 






bit 7 ^ 1 

bit 3 (JTtl 


Tfi x -f U7 F 0 


1/W h g~13/« h g 


7?- nu£(i3 3:^) 


14/\'< h g~16'W 


h g 


X-— ?~4i5£ EXTENTION x U 7(3 X?) 


17 /W h g 


/ \’ X 7 - F' <7) / -y X ( % 20n<7)(I) 


18 • 19 /*< h g 


7?-f 7K7V\*'l' F i!t(Bas Ji <t O' Obj co&^xi) 


20 • 21 h g 


77-f;H7)7-f>X ; E OyfcllT' K U X (Obj (D&^Si) 


22 • 23 h g 


774 )VT> / -C >X ^ 9 ^It7 F'ux(Obj<7)7^s») 








8, «B, 0#, M ! f§iAJtiTi'4 0 


24 /U h g~28/« 


h g 


®l ; ’84 ^ 12 01 S±WB, 16 B# 36 3b 

ftsIA'G, ^ « SB s-a- 








84 C 6 01 16 36 


29 h g ~31 


h g 


7 7^ JUTfcSl 


X x x X biS 

29 /'t-f F i HIGH y'*-f F (2D "CIS 0) 

30/'*-rFi LOW/n'-TF 

31 A-f F S MIDDLE A-f F (2D Tii 0) 







4 t* 7 b (i SET "S", f5h*yMi "R", |6t*yHi "P" ©*g® 

5 o 

&CHly?S b^S© 13^M bT^S^', Z.Mty r 4 iV&'Qhhoy 7 4 iX'&ftlSX 

^ D KX^-X £ifi4t) SiiKiotl'?, 7r4HffltKtt3 
> b v-}U*v7??-*AtlZ> Z t t FILES T(D0.^i Ez> 

*D, 4^;0t2o If, 7 M;«o*V7 

fc„ ftC3/^ yim^tmitlZtXD-C, r J ©fcCttfr* TBasJ rutyj T 

£>S 0 

H 17 bttAX7-K-pJbSo ^77-Fttt, rSAVE '7r4H; PASS"JT 
fi£-c£s„ mecttx^o*©^**, tf-ne iot i/nm icffi^ntuot^ 
So *£*>£, Ii-5'\°X 7-Kti)oT{), tf-®©|g*|ll c 1 /nM h©f-7C*otU 
9 s t DI#So^°A V- -3 *:(§£-, C© 1 b 20 hC&7T^S o 

SI 18—23 >U b 

Sl24~28''?'f btt0fTT$.S o -9-7'CPU ^S^<S-bbL*T-^ t[SIUff^TS>So 

^29'M b^S© S^M b «, 7 7 -i ^^©TfeBl^^glA^tiTViS X 7 XXfi^-& 
bl^LTV^So 3^M b ©MIT, High (±), Low (T), Middle (>P) t, ^Ulft&AI 
ffd&o TV>S d bCftloft© FAT©gifTi 5 J 0 J-rS*L 7 r T ^©*/J^fiii 1 X 7 X 

* 9 $ 7 o- y tr-T '4 X 7 783 



7T$)Z> 0 oiO, BAISC®7°nX"7 A£-fe-7*CT b 1 X7XX=4K>? 

4 1 F Jf’jt U ^ ^5 o 

FATTfcS**, inii#?7X^Ott| ^/^^DOJIR/T 

4£*) *3StT^SHffT*So Xl©7*--7-y F Tfi 2D Tfilll4 1/3-K, 2DD ttt 
Hl4, 15 1^3— K, 2HD TtiH 28, 29 1/ 3 - K \zh 6 a 
£i* 0 #^7X^otlfi^oHoc^Ali o 

a) 

b) (SB©X5X*C«<) 

c) fbliti't, 

UnltX XXXCttlUi, FAT©4 J 02^M lt*$n5„ HilC £*0 2 /nM F *> 
it, f/qx©flCJ:7Ti)>«Si%®W 128 X 7 X X JilT (=512K^M F) ©§ 
iOf^X (2D * £) THtfMfrC, rin?7X^®ttlH, FATfiO*n/MM- 
oj JfiT, 

S-fti^Ol^M F©ffi**a), b), c)(D^tl^ me# V> X E 5 4 o X ^ S #> £ VO 

£, 

a) 00„ 

b) -*■ 01h~7Fh (»:cSc< f , -X£i$£>X7XX#^) 

c) -* 80 h~8F h (7F H £3K>;fcfit*S, ^0^7X^flt^Cfbntv^U3-K 

ft) 

t)fx->ttl5iLTl'50ffo 2D4£"C«||0 ?7X^k|l? 
7X; (1/3-F0-32) ti T -4 1/ X F D £ , FAT g#Cffi*)#VC«r»S©T, FAT ©7fe 
I2^M F fi&C, 

01 H , 8F h , 

fc£oTV>5 0 mo X7XX& 1 X 7XX£g|5;&>1EbtlT^T, gglXXXX 

KKo Hi XXXX«8 F h -7Fh = 16 ^3-BS^| C ft)im'T, £©X?XXT 
f-x-Vtti&foOJ 

W&CD IPL Bnyo 'fy ACOiSMT$> 6 o ZHitB 0 1/3- F {£#§&£ tlX [T4 1/ 
X h yj CflJtTViS t><DT&6&, &© 3 ^TlBlOr -4 i/X F 0 k|3o 

© $fesS©r F U t'x- F li TBinJ 0ftST&lf*l(ffcf>«CV.' 

© 7 7TlU^0te3i?-(i TSysJ Tgltfttt&fe&l' 

© ftfrl) Ci/3- K#^-4-*#iAATfc < 

TitWtWiZT 4 l/X F V ©*#^;L ; Mt4oT 1 £.£o INIT#^Tf -XT07 
iiFfcf-f XXCrt£©£$ BASIC rAX F JHo-fe-XtSo ^-p-T^ £ BASIC 
rAX FO-O'-i’ X'C± oT® :;: F^45Xi53*n T -4 i/X F 0 ©4>#a^HI 9-1 ©J;5 
Cfcitt-fCfcSo ?Ct-O07^ l/X F 0 0 r5feslX7XX#^J (1E h #@) £ T7 
(12„, 13h#S) fcXifcL-CftS&A/C^So T7 T T ^£**£81 

O £[W|U<I £ C 4 -5 o 

i -5^t £ £ £>4I113i£ ITtt, o yfr9mfcLtz'&, fetiX L t o4^°X 7— F ZM 



i84 tg.miz&& xi 



13 9-1 x'-f 1 U <7)19J 



0=02 54 45 55 54 31 20 20 20 20 20 20 20 
0001010=73 20 r 44 09-,' 



11001020=02 54 
0001050=73 20 



45 53 
L 64 02 



42 61 ’1TEST1 Ba 

85 85 05 05 01 00 r 02-,00 ’s DB11 

54 32 20 20 20 20 20 20 20 20 42 61 'HEST2 Ba 

85 85 05 05 01 B0 l 03 j 00 ’s dnitMEm 



: ft b Z Z t r 7 7-r tfS&S ftfcj; 1 1 zt£ % 



HfUfct) bTisZo €®S^0#©t^Ii J f > 7r4^©fIl)tl5 o 
&C FAT o KILL 



-?• 3 T£>3 0 

Sf, £© BASIC r*7 * < T t> 

RENUMBER fc MERGE £|R 9 < tS - •***>■&, 

OPTION SCREEN 2 : INIT "MEM : " 

RENUM 1000 : SAVE "MEM : BT1", A 
RENUM 2000 I SAVE "MEM : BT2", A 



tlftft?, # ASCII MERGE I"** JfLTHtftf J:V\, 

BASIC f + A h ^,INIT^-CT^T®7 7 'i A/fcjBSLfcf* -f X7C-fe 
-7*T3 fc, FAT 9-2 oi 3 C&£ 0 

KILL 1-3 t, 43©4o©«® 9-3 ©J: 5 C44 0 itoTV»S©ttf , >f ^7 h 'JOlO^N b 
36*ooHTr**snfc7r^>wj fat^t^toOhU*# 



@9-2 x-f U* F 0 t FATOT0IJ 



0001000=02 52 45 56 49 56 41 4C 20 20 20 20 20 20 42 61 ’bREVIWL Ba 

0001010=73 20 49 2D 00 00 00 00 85 85 05 07 21 00 02 00 ’ s 



O000E00=01 8F 03 04 8D 00 00 00 00 00 00 00 00 00 00 00 ’ dj& aaaaaaaaaa 

O000E1 0=00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ' a a a a a a oi a aa a ai s a 

O000E20=00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ’ a a a^ a a a a a a a a a a a3 



@9-3 7 x -f KILL L ft mm<7) x -f U? F 0 t FAT <7)tfiJ 



0001 000=001 52 45 56 49 56 41 4C 20 20 20 20 20 20 42 61 ’^REVIVAL Ba 
0001010=73 20 49 2D 00 00 00 00 85 85 05 07 21 00 02 00 ’s I-aaaa^re! ala 



O000E00=01 

O000E10=00 

O000E20=00 



8F 

00 

00 



00 00 00 00 00 00 00 00 00 00 00 00 00 00 ’ flJK VaaaaaVaaaaaa 

00 00 00 00 00 00 00 00 00 00 00 00 00 00 1 a^ a a a a a aa a a a aa a a 

00 00 00 00 00 00 00 00 00 00 00 00 00 00 ’ a a a a a a a aFa a a a a a a 



7<7)§IG5-A''gftoTi'$ 



%9M 7 a -y e-fN X? 185 



Z. bXh&o t'ff'i t-'X h U CSoti'5 7/4" A'ib 

-iXfrh, {^77X7 ((5I1/3-F) So $17*14: 1 77X7=4KB = 

4096 /nM h T 0, 2 7 7 X 7 fc 14 ua — Yfi ■otz t *) Z. t&ftfr&o £^>X, 12^7 
Xj'lilS^^Xj'A, l3X7X^lii4X7X^, H4 
T, 14 \y a — F:fr©T — 7 £f#7 7 S ;A <3 7 F h + 14 = 8Dh h #£ 0 ^©^ 5 
t>< h.iiS^II 9-2 Otis!? CftSte-fT^So^ft^r-f V7 Ml t FAT ©RffcH^jA 
AT^S t 7 rT AteHS-f S c 

t^tHPg©7 r-f /POftiSH: £ © J: 3 f- a n>f MS <b SAVE, 

KILL JiDIL/L’T-f X7feh,IIP&©7 7X7©o&#?9;&s, 2 -» 9 -► 10 -► 12 £if© 
i. a iotl'S nJfcBtt** fc £ ©rtfo R © t § (i FAT © 00 H © 7 7 X 7 £JIH 

fcS-5 * i! b L4x*vi^, v^o ft-tf# 

£, •?•© FAT© 00 h *^SL*^7 r'i ^CfcfJ&LT^S 3 0 

fffC KILL L/;7 rT ;H^I*l/i 00 H ^fe Ltl&V>©7*&£ 0 /i*'£*I^e7 7-4 A£ 
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&K "WNBSY" K3fc4©B:, RESTORE CJXiT: F 77 XO 'xOSz-X) Ok# 

■p*s 0 ^r-na oi„= oooooooib t, BUSY**aftA/cv» 4 0 *&©;&«, os H , 04 H t 

fco-OsSo 05 H tt&9-9 3fr6»*4J:$erTRACK00'C1- & BUSYJ T*S 0 *> * 
ot|#T ! T»-, tThZ TRACK 0 C*t4^6, RESTORE SWHil**? 7 T A C 

**l£©C BUSY i: HRiSLtl- 4 **, &© 04 H T FDC (i BUSY 

9 Tfef Tl*& 0 tf — A/ 0 ZtilZ. Lt fell 5 b*7 F 0 /i -(£if — & TV:> & © 

fco t, MtS Lti)u ? 0 

toT-^7>Ft® "WNBSY" T2b4 0 fcofc, 21 H = 00100001 B 7io 
A— b, £ o^&WLE BUSY ** 0 E& 7 T$|;b 0 T$>& 0 

o c#itt^-^kPii;T*4!6*, ^iEii«fivjoT, * 

Jit-tra 9-4 (Dnmmm*mfrz>o 

Titt-f, J'-X37>FCout^ffilti)<o '>-^avyKtii, 

T~X lX'^XX^glft F 7 7 X## 

F7yXl/^X^<-Sft©h7^#^ 

tby htSfo^, i?“Lt:^I»:t^t5®^kv^k, FDC^Mnfe© 
FDD^WaLT ^ii>^©tf 0 oiD, E£fc© FDD fO»4©*?a>6, r*Sft 
© h 7 7 XlHtJte XI F 7 7X P'$>XXfcM£l&&©r F 

7 '^#fj £ISjf LTV>4©T, l&©FfMX/itt£®j*>bTV>4*S£fci:, gift F 7 

7X#fJf-;i/^X^K^y h*4*fW~COK*©Tfc4o t AY'© 

^XfATFDD fi 2£JiQ:&4fr‘'>, DOS (fc L < ttf'-f XX BASIC) it 4^M FOX 
-Xxy T^ltoTV^T, 

h 5 y X i/'Xxx^ h 77 Xif^oT^l,; t *fflSB-T4fc«)Ctt, 

175 PRINT INP(&HFF 9 ) 

195 PRINT INP(&HFF9) 
zAtix'ptut t^ 0 r 20 J, r 2 ij tmTFZtizit-fT&Zo 
fcC*** r x 7 X*J C^V»T»9i-r4. yxbrctt, h, V, r„ r 0 ©E3o©77X" 

% 9 ¥ 7 o -y e— X X 79? 



h=^-y Ka- K77?' 

V= h7 

-CS>a o ittliUPSCr ^ XX£S!/vT% fi'y7t5i i if'5i'®777’tl>5„ f-(7 
X K & TlilifAF7'y7®Ixt^ P©3tO-te?;?T*1-J fci^-5 TIDJ 
(Dti a ZtlltfS cA/T, 'sy FA^M^C @W© b 7 -y X Kill Ltzfrt' o fr(Df- 3 - y X £Jg!aE 
t^77m^o 'J7 b 9-1 -CS 02 H fi*^ v= Ot, fiy7lifi^7t^ 0 

^c ri) ro-e&s^, ffl-r, oo B ~iiBST©rao©«^*D, :niix 

r >yXV- b^Jg^Tb-S fe©-C*Sc Xf -yXV- h 9-6 K^LtJS TB^WJ "C$> 
6 C %-&6/o%:b(Dtfh6frt^5 t, ttllt TFDDC^'y F J Cgg^h 

CM&$>6fr6%(Dtz (— FDD BFilOo FDC ti FDD C f^\y F ^Sfj^b 

r^[R] t IWJ 

FDD ti— ? -zltfrb, FDCO.^’C^-f ^ y^^oT-’f’^^CVifcViW- 
&v> 0 %(D5"l a >'X*^fg^1'-5 0^r 1 , r 0 ©Xr yTV- h^0tfe5 o Art ;UfJ X b 
H0i5Kr,= l, r„= 0 £*g5£-f S h, FDC ti FDD CJtLT 20 ms (0.02 #) r fc C 
rift^J hc&& 0 $t, XI TfiXr y XV — b ttS'JE 20ms T& < 

Tfc JV©T£>So 
3 -i > f* = 3ms 
turbo ©pJ/iS=6ms 
CZ-502F, 503F=6ms 

( wn*— © ftv^o) = 20ms 
&iffc&otV-2> 0 

^ ;t'J X b 9-2 ** r#9 it ') J 7°u7 > 7At’i5o IfcXr y Xw- b 

T, V-tzth bVyX 0 ~ 39|ig£tj< fc©-C&S 0 Lev < J p-otzV, tttBJ^-t© 
»£T»**5 fc-TS fctt»©JSSK: ***>?>, SifBifC^iiko 1486 £iS *.*:«£■ 
(i T 32J r 30J (I4t*-yl' = y-7i7-in) % t*t>m*£tl6 HtT$>6 0 
ftCjRof 4s50ii, STEP * if©, 
u= b v‘y^U'>X^slfTX7^' 

-?£>£<, :tlli hyKCflCt^ot, bXy XlyJ7x?©fi£iiM£-e£*>, £ 
077mi>o 9 X b 9-1 1* 180 fx©&H5A £&H4A Clt, 

195 PRINT INP(&HFF9) 

£iifiD T6t T 20J t%7F$tl6li-fT&6 0 Ft£ll21 V 7 y 7 ±lz$>6 

( Dtit P, bVyXt'S^x^fi^-J&oiV&t^X $>•£><> 
ftif^AftXxXaS&S^iVd t, 7D-yt , -f'(X7®feS, IBM7*-vy t-C 
fi r^|$®bx>yXj fcv^ b<Dtf$>6tz£>%:<Dtzo tztZ.lt, r 4 X X £7 *-v >y bb 
TV^tlCt^ LTbIESCg|^.*§T^^^ b 7 >y X SrflB L * t X -5. 0 <D'*V 

194 tsettaisxi 



'1X19-2 tf'ltf'j ^P>7A 



100 


INPUT "STEP RATE";S:IF (S<0) OR (S>3) THEN 


100 






110 


OUT &HFFC , &H8 1 : 


* MOTOR ON "1:" 








120 


GOSUB "WNBSY" 










130 


OUT &HFF8 , &H0+S : 


’RESTORE ( * 0 hoy 




- * 


) 


140 


GOSUB" WNBSY" 










150 


OUT &HFFB , 39 : 


’ T - 7 U'XXy«-SW 


h X y 


2 


160 


OUT &HFF9 , 0 : 


* Y *5 v 9 N 


V V 


2 #•*§• 


170 


OUT &HFF8 , &H 1C+S : 


’SEEK 








180 


GOSUB" WNBSY " 










190 


IF INKEY $ ( 0 ) = " " THEN 


130 








200 


OUT &HFFC , &H1 










210 


END 










220 


LABEL" WNBSY" 










230 


PRINT" ] " ; SPACES ( 3 ) 










240 


STAT=INP ( &HFF8 ) : 


’GET STATUS BYTE 








250 


PRINT RIGHTS ( " 0 " +HEX$ ( STAT ) ,2) ;SPACE$(2) ; 








260 


IF STAT AND &H81 THEN 


240 








270 


PRINT" : " : RETURN 











3 r^y-fii, b©rV £-li/b 0 tftfoj t/y-fe- 
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7ht5k, ISIKO^y FOfifih, f-fX^c*i»iiTvsS ITDJ liav^stHtU^ 
CfcC4S, VXyi/T^iyXbfct £C'>-Xx7-#?EijTb£5&t* 

LT|P^**3BV»©T, u77^S®7t fo bo ££-£•*>-& 5 J <DT&& 0 *^S±ffi4f£ 
©p n pW^ffi*^7>:D, 7-1X7 (^tmT) fcffifrofc 9 Lfc^fc, b t £ bfc© 

I’ih^ifi, t A- t H;b & 7 7 X*T'£> Z> 0 ba'b, IBM7*— 7y Ftf 

^frhZ [&&*&} T-*Sa»©£v»ffi«?fc*.6„ 
hV^tbbT, ^jgA/T^S b tCl-So Jftt7^-77 h to 

$ b©rV xX£fflKbTi>ft/i§fcV>o F?^ 7*1 CAtiT fc b y c ^©>RfI 

T, 1 X F 9-1 £Hfr tSt, 3#S®'>'-7377F©X7-7XT, S^C 30 H * 5 Hi-& 
tt-fTJbSo t5b%'>-7i7-T*l) 0 btUtgilCX^-Vy b $ tiTV>3 T-T XX 
Tfe, X77 7 , M7t, u = 0, V= 1 (O £ 9 3 v y F «&H4E) ttZ tlUbb fctfjB 
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f 21J b 7 y 7 tz-otz, t 5 ;bW"T£> & 0 

TYPE I 377KTfi^bfcOtt, STEP 377 bVi«"C£>& 0 ;®377 F^I!t 
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TYPE I 

TYPE TYPE nTfiST^C-OteVifr* 

V^ 0 ZZ.T, 'JXP9-3, 9-4, 9-5-C&£o MCiot'JX P 9-3B®i/n^7A© 

7-fey^ y xh.nh 9-4 x p, y x p 9-5 terns- basic *»&«!$;&«> 
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BASIC (i CZ-8FB01 (7) Ver 1.0 

o t, ^tecfcoTteE000 H ~F800H <*£V>£-CS7- 

7i'J7Cft-5tU5®t, turbo BASIC frb 

T'i> -5> o 



X h 9-3 
















. Z80 












.PHASE 0DF00H 




0FF8 




CR 


EQU 


0FF8H 


; COMMAND REG. 


0FF8 




STR 


EQU 


0FF8H 


; STAT . REG. 


0FF9 




TR 


EQU 


0FF9H 


; TRACK REG. 


0FFA 




SCR 


EQU 


0FFAH 


; SECTOR REG. 


0FFB 




DR 


EQU 


0FFBH 


’.DATA REG. 


0FFC 




MSDR 


EQU 


0FFCH 


; MOTOR, SIDE, DRIVE# SELECT 


DF00 


D5 


START : 


PUSH 


DE 


; SAVE DE FOR RETURN STATUS 


DF0 1 


1A 




LD 


A , ( DE ) 


; GET COMMAND No. 


DF02 


13 




INC 


DE 




DF03 


D5 




PUSH 


DE 




DF04 


21 DF1 A 




LD 


HL, JTA 


; HL= JUMP TABLE AREA 


DF07 


16 00 




LD 


D, 0 




DF09 


87 




ADD 


A, A 




DF0A 


5F 




LD 


E , A 


;DE=A*2 


DF0B 


19 




ADD 


HL , DE 




DF0C 


5E 




LD 


E, (HL) 




DF0D 


23 




INC 


HL 




DF0E 


56 




LD 


D, (HL) 


; GET JUMP ADDRESS 


DF0F 


EB 




EX 


DE , HL 


; HL= JUMP ADDRESS 


DF10 


D1 




POP 


DE 




DF1 1 


F3 




DI 






DF1 2 


CD DF19 




CALL 


PATCH 


; CALL (HL) 


DF1 5 


FB 


* 


El 






DF16 


D1 




POP 


DE 


GET STRING ADDRESS 


DF1 7 


12 




LD 


(DE) ,A 


; STORE LAST STATUS 


DF18 


C9 




RET 




*, RETURN TO BASIC 


DF1 9 


E9 


PATCH : 


JP 


(HL) 


; CALL (HL) 








Jump 


Table Area 








; TYPE 


I 






DF1 A 


DF32 


JTA : 


DW 


RSTR 


; RESTORE 


DF1C 


DF3C 




DW 


SEEK 


; SEEK 


DF1E 


DF55 




DW 


STEP 


; STEP 


DF20 


DF5 5 




DW 


STPIN 


-.STEP IN 


DF22 


DF55 




DW 


STPOT 


; STEP OUT 






•TYPE 


II 






DF24 


DF5F 




DW 


READD 


; READ DATA 


DF26 


DF84 




DW 


WRITD 


; WRITE DATA 






; TYPE 


III 






DF28 


DF5F 




DW 


READI 


; READ ID 


DF2A 


DF5F 




DW 


REDTR 


-.READ TRACK 


DF2C 


DF84 




DW 


WRITR 


; WRITE TRACK 






; TYPE 


IV 






DF2E 


DFBC 




DW 


FORI 


; FORCE INTERRUPT 






; MOTOR 


.SIDE .DRIVE# 





796 ffigt(caj& XI 



DF30 


DFC6 




DW 


MSD 


;MOTER, SIDE, DRIVE# 


DF32 


1A 


RSTR : 


LD 


A, (DE) 


; COMMAND 


DF33 


01 0FF8 




LD 


BC , CR 


; BC=COMMAND REG. 


DF36 


El) 79 




OUT 


(C) ,A 




DF38 


CD DFD2 




CALL 


WNBSY 


; WAIT READY 


DF3B 


C9 




RET 






DF3C 


EB 


SEEK: 


EX 


DE,HL 




DF3D 


7E 




LD 


A, (HL) 


; A=COMMAND 


DF3E 


23 




INC 


HL 




DF3F 


56 




LD 


D, (HL) 


; D=TRACK# TO SEEK 


DF40 


23 




INC 


HL 




DF 4 1 


5E 




LD 


E, (HL) 


; E=CURRENT TRACK# 


DF42 


01 0FF9 




LD 


BC , TR 




DF45 


ED 59 




OUT 


(C) ,E 


;SET CURRENT TRACK# 


DF47 


01 0FFB 




LD 


BC , DR 




DF4A 


ED 51 




OUT 


(C) , D 


;SET TRACK TO SEEK 


DF4C 


01 0FF8 




LD 


BC , CR 




DF4F 


ED 79 




OUT 


(C) , A 


; SEND SEEK COMMAND 


DF5 1 


CD DFD2 




CALL 


WNBSY 


; WAIT 'NOT BUSY’ 


DF54 


C9 




RET 






DF55 




STEP: 








DF55 




STPIN : 








DF55 


1A 


STPOT : 


LD 


A, (DE) 


; GET COMMAND 


DF56 


01 0FF8 




LD 


BC , CR 




DF59 


ED 79 




OUT 


(C) ,A 




DF5B 


CD DFD2 




CALL 


WNBSY 




DF5E 


C9 




RET 






DF5F 




READD: 








DF5F 




READ I : 








DF5F 


CD DFEA 


REDTR : 


CALL 


SETSCT 


; A=COMMAND , SET SECTOR REG 


DF62 


01 0FF8 




LD 


BC , CR 


; CR=STR 


DF65 


D9 




EXX 






DF66 


01 0FFB 




LD 


BC , DR 


; BC ’ =DATA REG. 


DF69 


2A DFFE 




LD 


HL , ( BUFAD ) ; HL * =BUFF ADD . 


DF6C 


D9 




EXX 






DF6D 


ED 79 




OUT 


(C) ,A 


; SET COMMAND 


DF6F 


CD DFE4 




CALL 


WAIT1 




DF72 


ED 78 


RED1 : 


IN 


A, (C) 


', GET STATUS 


DF7 4 


0F 




RRCA 




; CHECK BUSY 


DF7 5 


30 0B 




JR 


NC , RED2 


*, END READ 


DF7 7 


0F 




RRCA 




; CHECK DATA REQUEST 


DF7 8 


30 F8 




JR 


NC.RED1 


; NO REQUEST 


DF7A 


D9 


f 


EXX 






DF7B 


ED 78 




IN 


A, (C) 


; GET DATA 


DF7D 


77 




LD 


(HL) , A 


; STORE DATA 


DF7E 


23 




INC 


HL 


; INC BUFF. ADDR. 


DF7F 


D9 




EXX 






DF80 


18 F0 




JR 


RED1 


; AGAIN 


DF82 


07 


RED2 : 


RLCA 


; BACK STAT (RRCA <-> RLCA) 


DF83 


C9 




RET 






DF84 




WRITD : 








DF84 


CD DFEA 


WRITR : 


CALL 


SETSCT 


; A=COMMAND , SET SECTOR REG 


DF87 


01 0FF8 




LD 


BC , CR 


; CR=STR 


DF8A 


D9 




EXX 






DF8B 


01 0FFB 




LD 


BC , DR 


; BC ’ =DATA REG. 


DF8E 


2A DFFE 




LD 


HL, (BUFAD) ; HL ’ =BUFF ADD. 


DF91 


D9 




EXX 






DF92 


IE 00 




LD 


E , 00H 


; COUNTER 


DF94 


16 02 




LD 


D , 02H 


; MASK 


DF96 


ED 79 




OUT 


(C) , A 


; SET COMMAND 


DF98 


ED 78 


FLOOP: 


IN 


A, (C) 


; FIRST LOOP 


DF9A 


A2 




AND 


D 




DF9B 


C2 DFA4 




JP 


NZ, FIRST 


; FIRST DATA REQ . 


DF9E 


ID 




DEC 


E 


; DEC COUNTER 


DF9F 


C2 DF98 




JP 


NZ, FLOOP 


; AGAIN 


DFA2 


18 06 




JR 


WRT1 


; QU I T FIRST LOOP 


DFA4 


D9 


FIRST: 


EXX 






DFA5 


7E 




LD 


A, (HL) 


; GET FIRST DATA 


DFA6 


ED 79 




OUT 


( C ) , A 


; WRITE 1 BYTE 


DFA8 


23 




INC 


HL 


; INC BUFF. ADDR. 


DFA9 


D9 




EXX 






DFAA 


ED 78 


WRT 1 : 


IN 


A, (C) 


; GET STATUS 


DFAC 


0F 




RRCA 




; CHECK BUSY 


DFAD 


30 0B 




JR 


NC.WRT2 


; END WRITE 
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DFAF 


0F 




RRCA 




; CHECK DATA REQUEST 


DFB0 


30 F8 




JR 


NC.WRT1 


; NO REQUEST 


DFB2 


D9 


* 


EXX 






DFB3 


7E 




LD 


A, (HL) 


; GET DATA 


DFB4 


ED 79 




OUT 


(C),A 


; WRITE DATA 


DFB6 


23 




INC 


HL 


; INC BUFF. ADDR. 


DFB7 


D9 




EXX 






DFB8 


18 F0 




JR 


WRT 1 


; AGAIN 


DFBA 


07 


WRT2 : 


RLCA 


; BACK STAT (RRCA <-> RLCA) 


DFBB 


C9 




RET 






DFBC 


1A 


FORI : 


LD 


A, (DE) 


; GET COMMAND 


DFBD 


01 0FF8 




LD 


BC,CR 




DFC0 


ED 79 




OUT 


(C) , A 




DFC2 


CD DFD2 




CALL 


WNBSY 




DFC5 


C9 




RET 






DFC6 


1A 


MSD : 


Ld 


A, (DE) 


; GET DATA 


DFC7 


01 0FFC 




LD 


BC.MSDR 




DFCA 


ED 79 




OUT 


(C) , A 


; SET IT 


DFCC 


B7 




OR 


A 


; MOTOR ON? 


DFCD 


F0 




RET 


P 


; MOTOR OFF THEN RET 


DFCE 


CD DFD2 




CALL 


WNBSY 


; WAIT READY 


DFD1 


C9 




RET 






DFD2 


C5 


WNBSY : 


PUSH 


BC 


; SAVE BC 


DFD3 


06 20 




LD 


B, 20H 




DFD5 


10 FE 


WNBSY0 : 


DJNZ 


WNBSY0 


; WAIT 


DFD7 


01 0FF8 


WNBSY1 : 


LD 


BC , STR 


; DAS A I 


DFDA 


ED 78 




IN 


A, (C) 




DFDC 


4F 




LD 


C , A 


;SAVE STATUS 


DFDD 


E6 81 




AND 


8 1H 


; CHECK 


DFDF 


20 F6 




JR 


NZ , WNBSY1 


DFE1 


79 




LD 


A , C 


; GET STATUS 


DFE2 


Cl 




POP 


BC 


; GET BC 


DFE3 


C9 




RET 






DFE4 


3E 07 


WAIT1 : 


LD 


A, 7 


; WAIT ROUTINE 


DFE6 


3D 


WAIT2 : 


DEC 


A 




DFE7 


20 FD 




JR 


NZ, WAIT2 




DFE9 


C9 




RET 






DFEA 


EB 


SETSCT : 


EX 


DE , HL 




DFEB 


7E 




LD 


A, (HL) 


; A=COMMAND 


DFEC 


23 




INC 


HL 




DFED 


56 




LD 


D, (HL) 


; D=SECTOR# 


DFEE 


01 0FFA 




LD 


BC , SCR 


; BC=SECTOR REG. 


DFF1 


ED 51 




OUT 


(C) , D 


; SET SECTOR# 


DFF3 


F5 




PUSH 


AF 


; SAVE COMMAND 


DFF4 


CD DFD2 




CALL 


WNBSY 




DFF7 


FI 




POP 


AF 


; GET COMMAND 


DFF8 


C9 




RET 






DFF9 


00 00 00 00 




DB 


0 , 0 , 0 , 0 , 


0 ; DUMMY 


DFFD 


00 










DFFE 


E0O0 


BUFAD: 


DW 


0E000H 


•.BUFFER ADDRESS 






* 


END 
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£ USR0(~)T'*So l¥L < f£3t 9-12 11 #*ffr 

« FDC -v© 3 -7 > F Tit & < , FFC„#ifi^-© r- Cftlo 

Cl 0 £>©"?, 

tztZ.&T'l F7l7 , © ; E-^-$ ON CLJ:5 bt Z> b, j § 

yZ Z%^CDT£>6 0 ^(Db§ it‘L'n$>friZ 9 -t -y hXl 7f Sff 
T*tt, fc X h 9-3©»I&££5£>3 0 



/9S titltfztb&Xl 



') xb 9-4 r 'J x h 9-3j <n?>7i) x h (&<7)tzsb : Xictttft* A t) 



DF00 


D5 


1A 


13 


D5 


21 


1A 


DF 


16 


07 


DF08 


00 


87 


5F 


19 


5E 


23 


56 


EB 


Cl 


DF1 0 


D 1 


F3 


CD 


19 


DF 


FB 


D 1 


12 


67 


DF1 8 


C9 


E9 


32 


DF 


3C 


DF 


55 


DF 


12 


DF20 


55 


DF 


55 


DF 


5F 


DF 


84 


DF 


09 


DF28 


5F 


DF 


5F 


DF 


84 


DF 


BC 


DF 


7A 


DF30 


C6 


DF 


1A 


01 


F8 


0F 


ED 


79 


2D 


DF38 


CD 


D2 


DF 


C9 


EB 


7E 


23 


56 


29 


DF40 


23 


5E 


01 


F9 


0F 


ED 


59 


01 


D1 


DF48 


FB 


0F 


ED 


51 


01 


F8 


0F 


ED 


3D 


DF50 


79 


CD 


D2 


DF 


C9 


1A 


01 


F8 


D3 


DF58 


0F 


ED 


79 


CD 


D2 


DF 


C9 


CD 


89 


DF60 


EA 


DF 


01 


F8 


0F 


D9 


01 


FB 


A6 


DF68 


0F 


2 A 


FE 


DF 


D9 


ED 


79 


CD 


22 


DF7 0 


E4 


DF 


ED 


78 


0F 


30 


0B 


0F 


81 


DF7 8 


30 


F8 


D9 


ED 


78 


77 


23 


D9 


D9 


SUM: 


69 


F3 


1C 


A0 


•o 1 
> i 


AD 


85 


E2 43E7 



DF80 


18 


F0 


07 


C9 


CD 


EA 


DF 


01 


6F 


DF88 


F8 


0F 


D9 


01 


FB 


0F 


2A 


FE 


13 


DF90 


DF 


D9 


IE 


00 


16 


02 


ED 


79 


54 


DF98 


ED 


78 


A2 


C2 


A4 


DF 


ID 


C2 


2B 


DFA0 


98 


DF 


18 


06 


D9 


7E 


ED 


79 


52 


DFA8 


23 


D9 


ED 


78 


0F 


30 


0B 


0F 


BA 


DFB0 


30 


F8 


D9 


7E 


ED 


79 


23 


D9 


El 


DFB8 


18 


F0 


07 


C9 


1A 


01 


F8 


0F 


FA 


DFC0 


ED 


79 


CD 


D2 


DF 


C9 


1A 


01 


C8 


DFC8 


FC 


0F 


ED 


79 


B7 


F0 


CD 


D2 


B7 


DFD0 


DF 


C9 


C5 


06 


20 


10 


FE 


01 


A2 


DFD8 


F8 


0F 


ED 


78 


4F 


E6 


81 


20 


42 


DFE0 


F6 


79 


Cl 


C9 


3E 


07 


3D 


20 


9B 


DFE8 


FD 


C9 


EB 


7E 


23 


56 


01 


FA 


A3 


DFF0 


0F 


ED 


51 


F5 


CD 


D2 


DF 


FI 


B 1 


DFF8 


C9 


00 


00 


00 


00 


00 


00 


E0 


A9 


SUM: 


6A 


7F 


EE 


56 


A4 


E0 


A9 


89 EC8E 



U x h 9-5 f-'-f 



100 

110 


CLEAR &HDF00 

MEM$ ( &HDF00 , 16 ) =HEXCHR$ ( "D5 


1A 


13 


D5 


21 


1A 


DF 


16 


00 


87 


5F 


19 


5E 


23 


56 


EB" ) 


120 


MEM$ ( &HDF10 , 1 6 ) =HEXCHR$ ( "D1 


F3 


CD 


19 


DF 


FB 


D 1 


12 


C9 


E9 


32 


DF 


3C 


DF 


55 


DF" ) 


130 


MEM$ ( &HDF20 , 1 6 ) =HEXCHR$ ( " 5 5 


DF 


55 


DF 


5F 


DF 


84 


DF 


5F 


DF 


5F 


DF 


84 


DF 


BC 


DF" ) 


140 


MEM$ ( &HDF30 , 1 6 ) =HEXCHR$ ( "C6 


DF 


1A 


01 


F8 


0F 


ED 


79 


CD 


D2 


DF 


C9 


EB 


7E 


23 


56" ) 


150 


MEM$ ( &HDF40 , 1 6 ) =HEXCHR$ ( " 23 


5E 


01 


F9 


0F 


ED 


59 


01 


FB 


0F 


ED 


51 


01 


F8 


0F 


ED" ) 


160 


MEM$ ( &HDF50 , 1 6 ) =HEXCHR$ ( " 79 


CD 


D2 


DF 


C9 


1A 


01 


F8 


0F 


ED 


79 


CD 


D2 


DF 


C9 


CD" ) 


170 


MEM$ ( &HDF60 ,16) =HEXCHR$ ( "EA 


DF 


01 


F8 


0F 


D9 


01 


FB 


0F 


2A 


FE 


DF 


D9 


ED 


79 


CD" ) 


180 


MEM$ ( &HDF7 0 , 1 6 ) =HEXCHR$ ( "E4 


DF 


ED 


78 


0F 


30 


0B 


0F 


30 


F8 


D9 


ED 


78 


77 


23 


D9 " ) 


190 


MEM$ ( &HDF80 , 1 6 ) =HEXCHR$ ( " 1 8 


F0 


07 


C9 


CD 


EA 


DF 


01 


F8 


0F 


D9 


01 


FB 


0F 


2A 


FE" ) 


200 


MEM$ ( &.HDF90 , 16 ) =HEXCHR$ ( "DF 


D9 


IE 


00 


16 


02 


ED 


79 


ED 


78 


A2 


C2 


A4 


DF 


ID 


C2 " ) 


210 


MEM$ ( &HDFA0 , 1 6 ) =HEXCHR$ ( " 98 


DF 


18 


06 


D9 


7E 


ED 


79 


23 


D9 


ED 


78 


0F 


30 


0B 


0F" ) 


220 


MEM$ ( &HDFB0 , 16 ) =HEXCHR$ ( "30 


F8 


D9 


7E 


ED 


79 


23 


D9 


18 


F0 


07 


C9 


1A 


01 


F8 


0F" ) 


230 


MEM$ ( &.HDFC0 , 16 ) =HEXCHR$ ( "ED 


79 


CD 


D2 


DF 


C9 


1A 


01 


FC 


0F 


ED 


79 


B7 


F0 


CD 


D2 " ) 


240 


MEM$ ( &HDFD0 , 16 ) =HEXCHR$ ( "DF 


C9 


C5 


06 


20 


10 


FE 


01 


F8 


0F 


ED 


78 


4F 


E6 


81 


20" ) 


250 


MEM$ ( &HDFE0 , 16 ) =HEXCHR$ ( "F6 


79 


Cl 


C9 


3E 


07 


3D 


20 


FD 


C9 


EB 


7E 


23 


56 


01 


FA") 


260 


MEM$ ( &HDFF0 , 16 ) =HEXCHR$ ( "0F 


ED 


51 


F5 


CD 


D2 


DF 


FI 


C9 


00 


00 


00 


00 


00 


00 


E0 " ) 


270 

280 


DEFUSR0=&HDF00 
D$ = USR0 ( CHR$ (11, &H8 1 ) ) 


• f 


MOTOR 


ON 

























290 D$ =USR0 ( CHR$ ( 0 , &H2 ) ) 

300 D$=USR0 ( CHR$ ( 1 , &H IE ,2,0) ) 
310 ’ D$ = USR0 ( CHR$ ( 2 , &H3A ) ) 

320 ’ D$=USR0 ( CHR$ ( 3 , &H5A ) ) 

330 ’ D$ = USR0 ( CHR$ ( 4 , &H7 A ) ) 

340 D$=USR0(CHR$(5,&H80,1) ) 

350 ’ D$ =USR0 ( CHR& ( 6 , &HA0 , 1 ) ) 
360 ’ D$=USR0 ( CHR$ ( 7 , &HC0 , 1 ) ) 
370 ’ D$=USR0 ( CHR$ ( 8 , &HE0 , 1 ) ) 
380 ’ D$=USR0 ( CHR$ ( 9 , &HF0 , 1 ) ) 
390 ’ D$=USR0 ( CHR$ ( 10 , &HD0 ) ) 

400 D$=USR0(CHR$( 11 ,&H1 ) ) 

410 END 



’RESTORE 
’SEEK 
’STEP 
’STEP IN 
’STEP OUT 
’READ DATA 
’WRITE DATA 
’READ ADD. 
’READ TRACK 
’WRITE TRACK 
’FORCE INT. 
’MOTOR OFF 



DF00„~DF19 h «, 0 ~11 #© -5 t>©, if DE w 

PUSH DF11 H K TDIJ o 

itUir-f XX D - K/9-f hoi -5 S 

DF12 H Tti DF19„® TJP (HL)J ttbtz, ["CALL 
mm<Dn'~?>te'&lE}UzLT, DF15„~DF18„ 

Xr-XX l^XX©ffii£Jf oTV>S J: -5 CUTS) -So -e©{t£ DE l^X X<Dja^7 F 
UXCX hTtli t, ;©/ nX'xAtWt/ttibfc BASIC T, 



SI 9 $ 7 0 '/ f-7-f x X 759 



8 9-12 r U X F 9-5j<7M$u;£ 



n v > K 


#t 




W>3 * —9 


fg 4 y \° 5 y — ? 


U * h T 7 


0 


□ v > K 


— 


- 


v-7 


1 


=) v > K 


IMvM >7 No. 


51£<7)'> U No. 


7f77° 


2 


U "7 > K 


- 


- 


X T- >y 7 r rf > 


3 


=i v > K 


- 


- 


Xt77 ■ XX F 


4 


=] x > K 


- 


- 


'J-Kf-^ 


5 


=1"7> K 


-fcX X No. 


- 


7 -f h x — ^ 


6 


n v > K 


iz? $ No. 


- 


U — K T 7 FL/7 


7 


n x > K 


/// 

1 


- 


U-Fh77^ 


8 


□ v > K 




- 


X < h ^77^ 


9 


n x > K 


y $ — 


- 


x *-x-r >x x 7 f 


10 


37>F 


- 


- 


^e-*-, im k, 

K 7 < 77 " >/<— 


11 


X — 9 


— 


- 



D$ = USRO(~) 



D $ ®7fclO^?® ASCII 3-Ft Lts»®5 L L^T# S„ (M 

*J, ffifIJo 

T*(i, fcti If DF32 h O RESTORE © Hfixl' - 7 X T 

tt, TLD A, (DE)jCJ:oT, FDCi;U3VXF&Au^X^i;jgVi±(ftV^o * 
nS37>Fv^^( CR)COUTLT, WNBSY £— f SCLtUiffi 

£E©BASICT»v>fc:/n7’xAfc|SIUT&So SEEK, STEP * if f> PI«U 
ifcK DF5F h *»€»© READD OJ-Ft- 7), READI ( D — F 7 F v A), REDTR(l) 

— F F x x X ) © 3ll^V-fytJfe5 0 Lv>c: t c LftSHo©^— 7 

CHUKOT* So 7©SJ!, READI, REDTR Tfi, 

^bTViSOTJbSo Tci^T&So t-f, T CALL SETSCTJ T A v 

F ^jo/FO-feXX^XX (SCR) C-LX X #-*§-£ OUT Lt 

V^So 7 ©7fc*^ s A W&tzOytziS, BC l/7'XX CX7-XX WX'XX (SCR = CR) ©7 
Fi xX£-fexFL, EXXT*l/^^Clt, BC'Kr-X w '7X X (DR), HL'C'ty 
7r7 Fi/XS-fey F Lti^. T'f XXCD-F/x'f FOfcJ&Cfct, “o©*-5 I/O 7 
FixXCK^C7X4zXL*Uftkf&£*F>©T£'5 Lfc©rtf**,STR fc DR ©±{57 F 
i/Xttt()C 0F H A*AL, if -5 LTfc£i'^XX£{&b*Um;f*&*V>;bUT k fi>5:v> < ,^ 
HH1T*S. *©fctt3^K*CRC0UT LT, < £n 

t(;i'<#o 0 ^ft^Stei/^XX^CLA: 9, *CLfcDL-30, r-X 
^SU®S©TS>S 0 DF82 H #itfe© RLCA BfiED-f- F LfcXf-/X^Cn-r 

— F Lit LT, jECMf feOTJbSo 

DF84 H ^S©#gIAtf^T'*S*L DF98„~DFA9 H W(i, I'M F*fU*<A-7 
7T*S 0 &ATLA&.r fc£LT^Sa>i:^5 fc, x 7 F F x x 7 ©*:&*©*?<> 

frz.5 Lft^fcx-f F F X x X^J&ftL&i^OT&So 31£|{±J: < 

200 u&iz tb& xi 



if I rIcts.-So 
ST, !)Xh 9-5*5Sfr*-*i:, K 9 T ^ 1 KfcfbT U X b r«rf^Lfc» (290 ff), II 
2 h7 7^^'>-^L (300 fr), *l-fe***y-Fb (340 fr), *-?~*OFFt 
3 0 r-7 7 Ki/Xli, DFFEH#ift*»e»0 2^>f H:fta$nt^l.7FwX 

T, OX h 9-5T«E000 H &b&oTt>3(260tT©£® o D$©ft^M Mctt, ft&CR 
&&A/£X f-^Xl/FX^ ©fit#! A 
PRINT ASC (D$) 

T, x^-fxy^fc-pSSi^KioTViS, * b T-f-il D - Fr-7 ©ftfr D C, 370 
ff® y - F h 7 7 ^ t&tvifc/i | TD$=~J TD1$=~J t 

T*bT*<^S*f*5 0 SfcfJffc, PRINT ASC (Dl$) htSh, r4 J ***^3 fbSH 
rTi.5o Xf-^x* (319-9) £jl£i:, &Afc TLOST DATAJ T*§ 0 bflttfS 
^t*-i9)-c: t^t^-5 1, rsoSktt*njs**>-3fci»e>, T-^©®jy b«b***s 
#>fc b*l&V><fcJ tVi-5 b tT&£ 0 o£D, J^v»e*lx9-T*So 
! XITti, b 

Z> o ft© X'n X" 7 A O-tt W TIi * O © tff o L A b b £ lb b — ® &©3K9!**fc 5 © *£ 0 XI turbo 
fcfcfcf, TLOST DATAJC «££**, 3&frC7-7 (2 §!<£-&-£ TV >5 ©T£>£ 0 turbo PM 
fl-©$l«T« (^SPSrfiSRLTifcW-Ttt*^**), hftlSE:U<o 

T, (^^©tb&^&vo 

bfrb, y- F F 7 7 X cfc D fcA*&b fctffcSCflfCi&tf §)o t-fttTYPE II 3 
F©7 7^COV>Tt£0£jLT:Jo < 0 

m = VJU7 1 U Z3 — F 7 7 7’ 

bft«, ^©Ixo- F£ — *Kltt**ST £ t § Ibfg-5 7 7/t^5o i^THgif 

•S o 

S=1M K777' 

:EliC77^I;V^Lj:Fi7 fc©T, R^ffl b Tzt - i X X ©-»M KsWOTfcS'*# 
i>\ Ztlt fe lTJbS^S^SrJgS-f So 

E=7-fl/'f77?' 

bft(2, F^rV XXCjfbfxHt^ftft^b 7 #>©fS^7©777°y >79 4 I's? 

ZtMmtZbOo XI Ttt*ISfe***V». 

C=1M K##Jt«7 5^ 

b tUi V77 7*#* 17 77 ( 7 >J X 7’) #■§•$• JrfcRf £ # b 7 A© 7 7 7*T'£> S © FlTf 
bt, T-'f F #■*§• <5 # b 7 A© 7 7 7*T& 5 0 bob <*-5i*, S 7?/tvoL 

iCW, 

a 0 = 7 KUXv-7777' 

b2U27T b 7— 7©b £ k©T£-5 0 bViOC|lt|bT{±7-77 0 ;7£7jx 

bfc£**#V»*?*5o 

T(±, TYPE IIOflSTfcSo 0 9-5, 9-6, 9-7, 9-8T£>-5o 

£T*« m 777'£v>bT>T,A£ 0 'JX F 9-5 © 280fr*6*EI 9-5 © J: -5 CRSlfcjlT 

* 9 ¥ 7 n .y t°— 70 X 7 20; 



HfcrtfSfcV*. £ -ffi 280 frtVt-*- ON, F^TX’li "1 :" T7M ' FttO#TJb 
■So 'JXhTLt, m= 1 TH 1 325 frT, ZtlZtMDXr- 

y x h 7 dp^— >■ 4 (TRACK 00 = 1) 
y - F 16 (RECORD NOT FOUND) 

fc*oTV»S 0 ^-^e^A'C^yX’U't^S t, Loi'D fc 16 -fe X ?&&&*& t tl? 

vi-sti-frsb-s o basic k*q, 

PRINT INP (&HFFA) 

tit, tri7j-CS>So FDCiim 7f/ = 

lCtEoT, W^lOStCl 17 -fe X ^ £ T£ 

ti^i r*v»«jfign*v»j©ifeBijK:fieoT, mfz<Dz:t<9i$kLx, trecord 

NOT FOUNDJ t©m77/lffi)t, H^-fe X ? £ic 

tf ttLtffcOi r^t>iHfc-5©^fg^-Cg*v»J 
©*?„ •?• tiT* FDC f£ rSl7-tzXX(iif<I*:r?!?J t, i^UOHaU® 
S©T\ oTL*5o ±oT, IED<ffi3£tt, 

^^fxy^lt^ot, M^fttZZT, TYPE IVOX^-X-! 777/I^t 
F*ITfcWoT*6*fr;Mr*&*v\i 4***K:1&B©*tf-5 m 7?m^ 

/v_ o 



11 9-5 m77?<7)$iJ 



m FLAG 


• 


280 


D$ = USR0 ( CHR$ (11, &118 1 ) ) 


: 9 MOTOR ON 


290 


D0 $ = USR0 ( CHR$ ( 0 , &.H2 ) ) 


: * RESTORE 


300 


D5$=USR0 ( CHR$ ( 5 , &H90 , 1 ) ) 


: 9 READ DATA 


310 


’ D6$=USR0 ( CHR$ ( 6 , &HA0 , 1 ) ) 


: 'WRITE DATA 


320 


D$ = USR0 ( CHR$ (11, &H 1 ) ) 


: ' MOTOR OFF 


325 


PRINT ASC ( D0 $ ) , ASC ( D5$ ) , ASC ( D6 $ ) 


330 


END 






4 16 0 





Dees, C77m5o El 9-6 (2, Tfn&tflJ-C, 280frt k 1M F 0 *JB5eUTV»S*» 
<=>, S= 0 (-9-T Ff± Ott *'?), C= 1 (f-x?7L T < *f$u>) Kiot, Xr-XX 
tt 0 kV»-5«K:4So £©a»J&*0 9-7T, 280 frTIM F 0 £fg5gUT H5®C, S= 1 (■* 
T Ftt 1 T-f*»?), C= 1 (fi9^lt<SSv») tlt^SCt, Ur? ^0 16= 
RECORD NOT FOUND **fflTV»S 0 ZCD^tei*-? ©f6*&*ttfr**>ft*V:>. 

0 9-6 S, C 75X<7>fiJ *<7>1 
S , C FLAG. . .S=0,C=1 

280 D$=USR0 ( CHR$ ( 1 1 , &H8 1 ) ) 

202 tS)»{cttl4Xl 



: ’ MOTOR ON 



290 D0$=USR0 ( CHR$ ( 0 , &.H2 ) ) : ’RESTORE 

300 D5$=USR0 ( CHR$ ( 5 , &.H82 , 1 ) ) : ’READ DATA 

310 ’D6$=USR0( CHR$ ( 6 , &HA0 , 1 ) ) : ’ WRITE DATA 

320 D$ = USR0 ( CHR$ (11, &.H 1 ) ) : ’MOTOR OFF 

325 PRINT ASC(D0$) ,ASC(D5$) ,ASC(D6$) 

330 END 



4 0 0 



i9-7 S,C77 *(7)2 



s,c 


FLAG. . . S= 1 , C= 1 




280 


D$ = USR0 ( CHR$ ( 1 1 , &H8 1 ) ) 


: ’MOTOR ON 


290 


D0$=USR0( CHR$ ( 0 , &H2 ) ) 


: ’RESTORE 


300 


D5$=USR0 ( CHR$ ( 5 , &H8A , 1 ) ) 


: ’READ DATA 


310 


’ D6$=USR0 ( CHR$ ( 6 , &HA0 , 1 ) ) 


‘.’WRITE DATA 


320 


D$=USR0 ( CHR$ (11, &H 1 ) ) 


: ’MOTOR OFF 


325 


PRINT ASC ( D0$ ) , ASC (D5$) , ASC ( D6$ ) 


330 


END 






4 16 0 





a 0 7yT<DM^M9-8T$>i, o a 0 7yT = IT, y A F t, ^©-teX 

yi/Z-fiJ—T'y FT Fi/7-?—7tfWfrtiTL£5<Dtfo 

^6<DT$>6 o B 9-8 0 JSC, X 

t~T t*5, I5t’7h (RECORD TYPE) ** 1 C*5 0 

f—T hi % ^ A/ tic^t this* $3, F T F IxX v — 7 ifi 

Tit, £©£ 5 C^otV^O^i; 
at, «CJ:?t flBM ICRV't <*lj %(DThytzo 



ID 9-8 ao77 0 * <7)#iJ 



a0 ] 


FLAG 




280 


D$ = USR0 ( CHR$ (11, &.H8 1 ) ) 


: ’ MOTOR ON 


290 


D0 $ =USR0 ( CHR$ ( 0 , &.H2 ) ) 


: ’RESTORE 


300 


D6$=USR0(CHR$ (6 ,&HA1 , 1 ) ) 


: ’WRITE DATA 


310 


D5$=USR0(CHR$(5,&H80, 1) ) 


: ’ READ DATA 


320 


D$ = USR0 ( CHR$ (11, &.H 1 ) ) 


: ’MOTOR OFF 


325 


PRINT ASC ( D0$ ) , ASC ( D5$ ) , ASC ( D6$ ) 


330 


END 






4 32 0 





TYPE n 



MB8877 ©TYPE fflnvy FCtt D - FT FixX, y - F Fx y X, 7 4 F F 7 7 7 © 

SI 9 # 7 07 f— T-f X 7 203 



'J-F7Ki/Xi;tt|#ooH, T4 *7 fcWfrtl'Os'6 |~ID 74 -A-FJ 
sap^ftK^tHI-kv^ ifcT*S 0 IEU < 7*-vy F ZUtzrU X7E«, #-te77 
rt C ID 7 ^ — ;wF hr-7 7 w F*U{@f'o£>£©fc' 0 5 fc, T7 ^ 

-^fj t« mm rgHj s-rsc 3 ?*^**.#, id7^- 

;7Fta-b7^© T7^;H r-77^-;7F(i T^J T£>£ 0 

§t, ID 7^-;i/F0l^t‘^5iJ ) ') X F 9-6 TS>-g> 0 0 7 F 

9-5 kiU^-nt^TU < :kCt4, RUN bfcfcK^-^CJflM/C, E000„j&»e>** r 
77°f £ fcft$J©6^M h^frHMOiiKfto-C^Stt-fTibio 

• o/nm f@='>d 

• 1 st'f F @ = 1M F#^f 

• 2'U F g = -fe:77#-§- 

• 3/nM Fg = -fe7 7* ( 0 ~ 3 ) 

• 4^M F g=CRC±{4 

• 5'U F g=CRC Tfi 

h&-?T<A-5 0 Ztl £>&?'< X, 7*—7y FB£C®£i&£;ft;fcfc©T£>£o -te7^#^ 
ti, *;D3cai^o^-t7^©feOT*So iot, £ <D & & ~Cht 1 ~16 #© -5 t> 

0 -> 1 0 128 F 

1- »l-tz7 7 SfcD 256 F 

2- >l-tr77Sfc9 512 sU F 



3->Hr7 7i§fc9 1024 F 

9* 1 9-6 ID 7 4 -)l< V km.A-liitm'£<n r ') X F 9-5j<7)S!MjS100~2701fttlBlL' 



280 D$=USR0(CHR$( 11 ,&H81 ) ) 


* MOTOR ON 


290 D$ = USR0 ( CHR$ ( 0 , &H2 ) ) 


’RESTORE 


300 ’D$=USR0(CHR$( 1 ,&H1E,2,0) ) 


’SEEK 


310 ’ D$ =USR0 ( CHR$ ( 2 , &H3A ) ) 


’STEP 


320 ’ D$ = USR0 ( CHR$ ( 3 , &H5 A ) ) 


’STEP IN 


330 ’D$=USR0(CHR$(4 ,&H7A) ) 


’STEP OUT 


340 ’ D$ =USR0 ( CHR$ ( 5 , &H80 , 1 ) ) 


’READ DATA 


3 50 ’ D$=USR0 ( CHR$ ( 6 , &.HA0 , 1) ) 


’WRITE DATA 


360 D$=USR0 ( CHR$ ( 7 , &HC0 , 1 ) ) 


’READ ADD. 


370 * D$ =USR0 ( CHR$ ( 8 , &.HE0 , 1 ) ) 


’READ TRACK 


380 ’ D$=USR0 ( CHR$ ( 9 , &HF0 , 1 ) ) 


’WRITE TRACK 


390 ’ D$=USR0 ( CHR$ ( 10,&HD0) ) 


’FORCE INT. 


400 D$=USR0(CHR$( 11 ,&H1 ) ) 


’MOTOR OFF 


410 END 




19-9 ID 7 -f— ;uK0)l*3§ 



: E000=00 00 02 01 AF 5F 00 00 



204 KBitcaj* XI 



#ati 1 -fe 9 9 256 /U hlifrb [1] CftoT V»*tt-fT2bS 0 
©2aM h©CRC «, #V»K**^xy ^-9-A*fcV»*fe©TJb4„K*Hl1-i: S©f-xv 
— 5e©*ftTtm**tf**>nSo FDCi*»¥KtHftT<«lS©T, SilCiL'BB-r 
5&gfi*ir», *>*>3/u, rCRC ERROR J 

S o 

fc 5— S0 9-9 fcjlS t, *$J© 2 /nM h (2 00 H , 00 h T, oSDttl 
O>' l JV/ClOt'(F40t , i5o ^Lt, |2t^^C||ICttiEofeo ^0-feX? 
©^-f^fi l/i*><o, $> D 256 h07#--7'nt*^ o *^©2^M h 
©CRC©AF H , 5F„fi, CRC i:V»3fettVfc*o 
ZZ.'Cfc>tlfc>tlZ(DffiMfcmt, 7oyt-f>(X70SlAt|R]i'50T|i^o Ztl 
fit"— 10— <1 t^tVi-5 t,r r-f XX©4 , 'T ; g"feX:?fit*©J: d GMA,Tl^£©;te*3 5 J 
tV^^PplT^So SfjlC#*.£ft5>, 1, 2, 3, , 16 T £>-&#?, S!)G-f- -5 Tft < 

T fe J: v » J4 -f T Jb S o ^ C T# it T * S k , fc U *» TYPE I © n v y F * Hfr L fc i£« * 
<3 INDEX ^—^^HiTgSrpO^ £ hEfV^^SOTi&ofeo lot, '{>?«;? 
X >J - K 7 F V"* fcfiTfRff G 16 Hffft *.# 1 J3#©#-fe X ^ © 
ID 7^-^K**96»TUS 5<DTh% 0 

t^u «tv»i tG BASIC T^il*^»o'r'baS**iioO*»ftV»OT* Soffit 
fc J ? 3 ®MnQ ; &iat ft ft tiff ^ ft ?>ftvi 0 -5 — t? t y x y 9-7 1 u x h 9-8 t 

$>Zo 



>J Z. b 9-7 ID 7 5 -JU K<7)ii#ta*ii*. 



• Z80 









.PHASE 


0DE00H 




0FF8 




CR 


EQU 


0FF8H 


; COMMAND REG. 


0FF8 




STR 


EQU 


0FF8H 


; STAT . REG. 


0FFB 




DR 


EQU 


0FFBH 


; DATA REG. 


DE00 


F3 


START: 


DI 






DE01 


01 0FF8 


* 


LD 


BC , CR 


; CR=STR 


DE04 


ED 78 


WINDEX: 


IN 


A, (C) 




DE06 


E6 02 




AND 


02H 


; CHECK INDEX 


DE08 


28 FA 




JR 


Z, WINDEX 




DE0A 


1A 


* 


LD 


A, (DE) 




DE0B 


57 




LD 


D , A 


; D=COUNTER 


DE0C 


D9 




EXX 






DE0D 


01 0FFB 




LD 


BC , DR 


; DATA REG. 


DE 1 0 


2A DE37 




LD 


HL , ( BUFAD ) ; BUFF 


DEI 3 


D9 




EXX 






DE 1 4 


3E C0 


AGAIN: 


LD 


A , 0C0H 


; READ AD. COM 


DE 1 6 


ED 79 




OUT 


( C ) , A 


; SEND COMMAND 


DEI 8 


3E 07 




LD 


A, 7 




DE1A 


3D 


WAIT: 


DEC 


A 




DE1B 


20 FD 




JR 


NZ , WAIT 




DE1D 


ED 78 


RED1 : 


IN 


A, (C) 




DE1F 


0F 




RRCA 




; CHECK BUSY 


DE20 


30 0B 




JR 


NC.RED2 ; 


; END READ 


DE22 


0F 




RRCA 




; CHECK DATA R1 


DE23 


30 F8 




JR 


NC , RED1 ; 


; NO REQ. 


DE25 


D9 


* 


EXX 






DE26 


ED 78 




IN 


A, (C) 




DE28 


77 




LD 


( HL ) , A ; 


; STORE DATA 


DE29 


23 




INC 


HL 




DE2A 


D9 




EXX 
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DE2B 


18 F0 




JR 


RED1 


DE2D 


07 


RED2 : 


RLCA 


; BACK STAT 


DE2E 


D9 




EXX 




DE2F 


77 




LD 


( HL ) , A ; STORE STATUS 


DE30 


23 




INC 


HL 


DE3 1 


D9 




EXX 




DE32 


15 




DEC 


D ;DEC COUNTER 


DE33 


20 DF 




JR 


NZ, AGAIN 


DE35 


FB 


* 


El 




DE36 


C9 




RET 




DE37 


E000 


BUFAD: 


DW 


0E000H 






* 


END 





9 *1-9-8 ID 7-r -JU 



270 ’ 100 - 270 V Hi ft 7X19-5 XtX? -XD'SXfTH 
280 CLEAR &HDE00 



290 


MEM$ ( &HDE00 , 1 6 ) =HEXCHR$ ( ”F3 


01 


F8 


0F 


ED 


78 


E6 


02 


28 


FA 


1A 


57 


D9 


01 


FB 


0F" ) 


300 


MEM$ ( &HDE 1 0 , 1 6 ) =HEXCHR$ ( ”2A 


37 


DE 


D9 


3E 


C0 


ED 


79 


3E 


07 


3D 


20 


FD 


ED 


78 


0F" ) 


310 


MEM$ ( &HDE20 , 1 6 ) =HEXCHR$ ( ” 30 


0B 


0F 


30 


F8 


D9 


ED 


78 


77 


23 


D9 


18 


F0 


07 


D9 


77" ) 


320 


MEM$ ( &HDE30 , 1 6 ) =HEXCHR$ ( ” 23 


D9 


15 


20 


DF 


FB 


C9 


00 


E0 


00 


00 


00 


00 


00 


00 


00" ) 



330 DEFUSR1 =&HDE00 
340 COUNT=20 
350 TR=0 

360 D$=USR0(CHR$( 11 ,&H81 M MOTOR ON 

370 D$=USR0 ( CHR$ { 0 , &H2 ) ) : ’RESTORE 

380 D$=USR0 ( CHR$ ( 1 ,&H1E,TR,0) ) : ’SEEK 
390 D$=USR1 ( CHR$ ( COUNT ) ) : ’ READ ADD . 

400 FOR I =&HE000 TO &HE000+7M COUNT- 1 ) STEP 7 

410 FOR J = I TO I + ( 7- 1 ) 

420 PRINT RIGHTS ( "0" +HEXS ( PEEK ( J ) ) , 2 ) ; " " 

430 NEXT: PRINT 

440 NEXT 

450 D$=USR0(CHR$( 11 ,&H1 ) ) :’MOTOROFF 

460 END 



'JXF9-7&, i-f FDCOXf-^Xl^XX^IN LX, Hi h ( = INDEX) a* 
W&CDl'i'f b IZlfeUfatZo I&0J3 -r A & 

b(DTt^tz55 o V X b 9-8 ZM.X^tztzZtz^ 0 iWi'JX h 9-7 0f^t*2 o 
100~270fircn, U ^ h 9-6 ( 9-5 ) <D 100-270 frfc&Rfc-TSo 

£ tit^X, t-f 360fr'C j e-?-£ ON LX,370ffTtV $>iff 'JX h 
TZWrtLX'^y F£fg0 by y < Z„ 380 1?T it 13 MfrCQ b y 

^LX^6 0 b y y ?g^lt TR KAoti^o ZZVtfrZ-f, 

d$=usri (chr$ (m^tat mssc)) 

X’$)6o ft^OXT-XXfc^UCf&lfl-f £*>?>, lHlS/:9 7^M b<DT~-?*mtl 
6fc>vx$>6 0 < ti <*tib usrioBhuc 

it TYPE UDyy>b^m : fLXi3< zto £&&< tfy-fey FX'f y 
otu^otibSo 

9-10 T£So HuBASIC ©^Srn&WPC 1 
~16 tfJBC&A/rnSo XI CP/M it, m 0 tm 1 -> y HuBASIC hlsjc, It 2 -> 
y >?fr&ht, HI 9-10 Cf J; -5 Ciotl'J, MZ-2000/2200 OCP/Mttt^v' 

y >^fc*v»TH9-10©J:3K:fcoTv»S o 

206 MlfetCtb -i> XI 



0 9-10 -feXXWfta'* 



HuBASIC 

123456789 


10 


11 12 13 14 15 


16 


XI CP/M (TRACK 2 — 39) 

1 14 11 8 5 2 15 12 


9 


6 3 16 13 10 7 


4 


MZ CP/M 

1 3 5 7 9 11 13 15 


2 


4 6 8 10 12 14 


16 



ZZT, t°-LX 

-*K «tg 1 -b X X £S!&» g LfcfctttS 2 -fe X X £S!<£.# **, CP/ 

MOi^ C/N- F'/x7J;ffLt^V^y7 h/x7*J:B, %<D 2 0©R£.#£ ©PbI 
CS0©®ia**A9, ?-®riCf>(77A?^@otLS^®t'Ji5o -5^, 1~16£T 
WcttA/TM^St, r^-feXX *«*»*., &Kf&2-feXX*ttt>-5 tUTfe, tTC# 
2-fe^^tt^y KOffiH'SfaDaSfTbSoTV^J ©«o r^XX^fc^ 

1 mi,t& S^ft*»tf4e.4v>, fuiB© <£ -5 e, 5 4 3 4 >^© 2D, 2DD Or 4 

XXfi l&fflfc: 300 ®$e, ■rft*)-felWWK5@RU'rv»S*»6 f ljf^-tv^tfo.2# 
T&So tto§9lot, CftttfcTfeJfcvMSM*©*?. ^ -bXX 
tJg2-lzXX©P B s 1£llLT:Jo < £>tf~C$> 2> 0 t> % 6/vZtlteW, 2 -fe X X tM 3 -feX X0B8 
TfcHUJ: fcT2bS 0 £n-teXX*»6flfflSC»n+ l-feXX**fcS*»*»*.T*5 t (*> 
A, 16 — 0 fcifiErrSA/ttJ:), 

HuBASIC - 1 fi 

xi cp/m -> 5 m 

MZ CP/M - 8 fi 

k*otv»s 0 £©1, 5, 8, ©i?ax + x-7r/7 hDftftiSo - ti t |WJ U i -5 
>'7- l J-/7r77tViH0f)i&ot, ^miPD-no/r-bX 

X S’tcMt* £> s o 

HuBASIC ->2 — 1 = 1 
XI CP/M -> 14— 1 =13 
MZ CP/M ->3-1 = 2 

fc£S„ MZ CP/M ©»£•« 15 -> 2 , 16^1©HffT’SL^T^?.^ca*o t, 

V Hi 111;* tec 

£0fttt^**©ffi0|gK:*S ©****, £, ^©$5 

©■»rXX#^***ofc!>'*-So TrtAff, HO-feXXfcb\ Hl7-trXX-C£3o S&Cte 
* lHsXXtf 26fB*ofc!)*£©M3^£fcfcSo Cifc^A/OifcttSE&flf&fcL-C 

fcHif, fAti&C y-Fh777t7^ F f77 / £©T£>£ 0 

Xl/Xl turbo TU - F h 7 7 7 t, \>% 6T*> LOST DATA x?-**jB3 

£**, turbo T«f'-XaMI^&©C*SSIS£i&?l?’ 5„ XX©-/ 7/-7x 

4 XOttfgKMf^f S©T*S 0 turbo C CZ-500F CZ-800F fcSMSEft »J - K 

h x >y X ZMlfLr b, f£ti&©C&£7 J -X*SSc*§©'C&3 (fllf^Th’y bf'tUi® 

*9^ 7n 7 f-fu? 207 



i-r**, stitt, vfo 

y*tfy b tf-^fy hft5«1**I5iK©tttBK:Mffi1-5e»bv»« turbo litoiK® 
— &©T, &9ffibfcf ? -7tt{£;iSasL0STDATAx7-;&s#££U turbo 
£Wtt, V»* = i6:©Tx9“**jB«4«l?Ttt*<, r-7ifft>£ < SfcttT&So b 
*»U 'J - F t 7 y i.fflt, hL% 9 3£ < :£45J£h 5 frttttttt* 

* 5 , fettl^^s 5 -^o ! 

r^t^, X^J, X^J, 

Ttt, 5>f hh5??tiBtS, * 5 -ttHf9 - F b 7 y 7 fe a®j«K:S&rc§ S 0 
9 4 b b 7 y?©tttltt, m?t)^<, X 7 C«7 *-v y b £##&£? S t 
C«fcS 0 tym.7 *-^v btt, 1 b9y *(tf-®flOMSfc!?l|&6.25K>t'r b (6400 b) 
®f-^, 74 b bxyXnvy F£^oTfV X7C#£3£i?S fcCJ: DJI^Sti 
So *0 6.25K/t4 b©l*IIRtt, rttv^o, CC*»&CCSTBID74“^KTtJ:. * 
V>T, S Z&b<D 256 £-fJ 

4ffkV»-5 S tOjI^-C^So •Ctt^jSTfcS**, riS0 7-4 7’5.25'f yf 7 *-?y 

bJCffi^ 6.25K^M EiS*-. S©*tt, ##£jiU0 

i&ISC^oT^So 

£T, ||ttst>ott£^*;ir>©n&;b#fc©*©-r&So ioTl^BJt-So 
*1*. *9-13 ^6^5±^C7*-77 Hi=o©W#fc£**vCV»5oGAPl t# 
b;^®7t-7'yb GftMS&S) i: GAP4 T£>S 0 7?£ 9, 1 (77707^-77 
b tt GAP1 Ttfe & V , m'&lzGAP4Tmt>6 Z tT$>6 0 L*>L±f£tt, ?®FIC 
ftttifc r-t^^074-77 bj ?$>Zo 1 b777 (M-ffl) E, 256 b©3£i©-fe 

^^*ti6f@$>S*a©7^--7'7 bTtt, 

GAP 1 , #-tr 7 7X16, GAP4 

Ttt, S©fl07#-7y bcovit, -4 vr y^x^-;POfi[S^e.|lgci^0J-r 

So 

• GAP 1 

-4 >ry?X*-;P©fcH*>S, 4E„©fI3lTS r-7** 32 b #T£>S 0 :©Ki> 
E fc GAP2, 3, 4*s*S*s, Vi-ftifc7a<> h°-fVX7 FtM 7*©ttSo# (01531® 
©Xv4fl c^f®-rs7i*©fe©-es>So 

• *«© 4 z 7 7 (lgl-t ?7 7 fcttK‘ 5 &t>) 

9-13 ©T©»$Wt < o 
4z7 7tt&©®#*>S&S > 0 

Sync 

00 H ^12f@#^tlTViS o Stltt|S|»5£®JS*:&© i b©o 

AMI 

ID ADDRESS MARKT'$>S 0 Stitt 3 10© A1 H (Htt*. i o hi! 5 ) fc lfl© FEh*» 
S& S 0 Al H tt, fl 07 - 7 Ttti<, S. 'y 5/ 7 7* 7 n y 7 (Missing Clock) 

20 S KStttdiSXl 



* 9-13 ISO ? -f 7° 5.25 



1 t2?afc'J®§i 


GAP1 


-&-tr 7 ?C7>7 tf-7'y |- 


GAP4 


256 'W h 


4Eh X 32 


©X 16 


4E m x266 


512 / W h 


©X 9 


4E„x296 


1024 /W h 


®X 5 


4E„x208 


jS^<7)T"*-7(MB8877 ffl) 


[W] _b 


“FfcjLJ: 


IWJ ± 



(S5t •>')>?, IBs-tM'K, Ign -b^^fflc7)7^-7'y h : 




^4« H£*©»*©?ff<r»il-ri:, i-t5E?D'^h*7 

ha s l{SJ&9£vv0*f o Al„fi 2JiiS[/it, 

10100001b 

t%v, OkflO^K^ny^tfyliJAJOT, f 

il& <7 (S', 

1 0 1 0 0 0 0 1 
t t t 

©3i#l^n.^t*7 h**A£&-f-C &£ 0 t £© A1 H ©!§-£•«, * 

A/^OX n -y X h*y F^UOT^e, tzfrh$k 9-13 ©T©g|5^Ttt (Al„) (D J: 5 
C. *'y?T< < otiJ, C^«^TfcBT< -S AM2 Tfe[lIUT*5o (Al„)®t£©FE H 
ttfi 0 FE„T^J o ST, TO^cr®«©f-^J hV'51^5iS, ££CrF5 H J 
fc*>*V>T 2 bS o oi 9 MB8877 \ZZ.<D9 n >7 X b*y t'CO&ttTI^S (A1 H ) £**>-&•£ 
t Sfct, Al H ©ftfc> D C FSH^oT^tUf J:Vi©fi 0 MB8877 hty-i h h 7 y X 
C, F5 h , F 6 h , F 8 H *t*^^^T < 3 £0j&C-DHTfi&T 

£ 

ID 

Z^hZht, 1M F#t, -feXX#t, -feXXOX'f 7° (A# $) ft if ^ 

OX F 9-60 r 0 — K 7 F 17 X J TR^tH Lfcr-X O ^ %<D&W<D 4 A 

X F#T && 0 
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CRC 

7©CRCbt, AMI ©lift© FE H k ID ©ft 5 hCJtt £ CRC T$>6 0 MB8877 T 
^ F7 h ^ 1 2 ^ -4 b -otzf£tf~C, 2 b © CRC Cirb3¥C~C§^~T / kt •& 0 

GAP2 

GAP1 k |s] C i 3 * fc ©o 

Sync 

^ o ^ 15&93 L/tZo 

AM2 

::ci5 3ffl©(Al„)tt AMI klfUTfcSo *©&c FBh***S©«**, 7tui5fe 
T b r-^0 ao^^^hWILt^SOfio UrSli FB H (DATA MARK) t£ 
<01*#, a„= lTy'f br-7£fr&5 k F8 H (DELETED DATA MARK) CfcoTL 

£a©-C£>£ 0 

DATA 

gmm&wi* th<o\tz. (D%!>ftThz> 0 

CRC 

AM2 © FB h (fcL<&F8 H ) kf-7 CRC Xh6 0 

GAP3 

GAP1, 2 kIWICo 

C tlT 1 -fe 7 7 fr#1&£> 0 T h 6 o 

• 2~16#@©-te77 

CtLtt rft30©-tz77J kS^KlUUff^o 7c/i-fe7 7##*:*fra 5 )i'5o 

• GAP 4 

4E h A 5 ', -4 St y 7 A /L — ;T ;£ T'^i/^T V* •£> ©”C£> So 

t(±i s b 5 7 ^ (LoCi/i j; •$ 07 bTSiJo ^ c t 5 t k , ^5^)21 

6b (A1 h ) %ifbW'‘'tztf, %<D £ 5 &C kC&Slii©— 9-14 C 

^f 0 *9-14®©+-Hi (C2 h ) k*»**a-C< 5**, CtUiriBM^Tr7^--7>y bj 
©ttJTffifciiS ©&©•?£> Soflte 5.25 'f 7f®7ny tf-r^r X7®7^-vy bK 
(i, 7'7T-^fe©* J 2 kfcD &*©*?<» co®74--7 7 b©£v>«*§ < «£<. * 
9-15 9-13 ©ftk> 0 C{j£-5 k |TBM 7 T 7°J C& 2> 0 k & 1) C, CJUi 

GAP4 £)S< IT GAP1 GAPO k*^ INDEX MARK bfr&AtlXL£ 

r>tzb<DT$>6 0 tztz L-kfcO'U b»HS£*)oTV»4v»ikCffi®L'rv»fc^*fc^o 
“ 0 © 7 *-vy b©itv»tt, ##XS)UO Ciik, ISO 7T 7“©^*5x7-^©Rlig 
k -5 C k £ L t^o tz. LA* k IBM 7 T 7°(3: GAP £@<07: 

INDEX MARK & k* k V 3 7 k<D*\tiX^6<Dtzi'b, FDC **k*t> 6<D7 t t y b fc 
B&b6 0T3btll£, <6>tt)<Dh6 ISO 7 -4 'X(Dj5tf : %$lX h6*> 0 -fe**C HuBASIC k 
S-BASIC (MZ-2000) fi ISO 74 7°, MZ-2000 © CP/M & IBM 7 -4 7°© «fc 3 

-C$>£ 0 



270 lS»tctti4 XI 



*9-14 =7-i (• h 5 y :*(7 *-7-y \ )m<7)T 
® MFM ftffR# 



MB8877/76 


7 - -f ^ (I 


M 






OOh 

i 


OOh 

1 




F4h 


F4h 




F5h 


( A1h) 


AMI, AM2 <7)|4it(CRC yx4L'-7^7'J-by FT5>) 


F6h 


(C2h) 


INDEX MARKWsutKCRCvxt-U-^^yj-b'y Ff5>) 


F7h 


CRC 


F*3§|5T-H-g?ftfc CRC (2 'U t)£*< 


F8h 


F8h 


AM2 OTITIS DELETED DATA MARK 


F9h 


F9h 


ePiSCDx— 9 


FAh 


FAh 


FBh 


FBh 


AM2 <r>$>x Ht DATA MARK 


FCh 


FCh 


(C2h)X3<7)«T- INDEX MARK 


FDh 


FDh 


Hiic 7)f— 7 


FEh 


FEh 


AMI <7) + T-(i ID ADDRESS MARK 


FFh 


FFh 


0)7*—$ 



® FM 



MB8877/76 

IT&S-r-:? 


T-ra? Ctfrnsr-? 


M vt 


T—? 


7 □ y? 


OOh 

$ 

F4h 


OOh 

1 

F4h 


FFh 




F5h 


« it 


F6h 


F7h 


CRC 


FFh 


rtsi5T-ft#$nfcCRC(2/N''r h)£#< 


F8h 


F8h 


C7h 


AM2<7)*T*« DELETED DATA M A R K (CRC 


F9h 

FAh 


F9h 

FAh 


C7h 


CRC -Xx* U — X £ 7" 9 -tz -y hf & 


FBh 


FBh 


C7h 


DATA MARK (CRC -yx^ U-7t7'Jty hTS) 


FCh 


FCh 


D7h 


INDEX MARK (CRC yiTU-7t7'J ty hf5>) 


FDh 


FDh 


FFh 


^ 


FEh 


FEh 


C7h 


ID ADDRESS MARK (CRC -7 x * U-7 £ 7'J -b -y hf 3) 


FFh 


FFh 


FFh 





ii) FM ^ii< 7 )T-*-:?C 0 :? □ -y ?/\"? — >lt r FF HJ T -£>$ 0 
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*9-15 IBM 7' 5.25 -f >f7*-77 \- 



1 -b7 7S 


GAPO 


Sync 


INDEX MARK 


GAP1 


-§• -tr 7 7 (7) 
77 y F 


GAP4 


256 h 


4EhX80 


00h X 1 2 


(C2h)X3 


FChXI 


4EhX50 


®X 16 


4Eh X 152 


512 /U h 


d)X9 


4Eh X 132 


1024 sW h 


®X5 


4Eh X94 


nmnr-* 


m _h 


m Jb 


F6h X3 


IH ± 


m ± 


^ 9-13 cr>-y<r> 
JLd: 


m ± 



ZZ.T, i: if— Aybr'^t X?£7;a-— ?•; bf %>yv ?? * h 9-9 T&4 (i£$? 

turbo BASIC fi t V> 5 £ h tf&fr&ifi, UPf fi turbo BASIC Ttt*u&»Scv»© 
T-a®)o 1010-1170 CJ A t 9-5 © 110-270 fx) £ 9 /- Y/'f-Ufc 

feOTJbSo — , HWWfSfc, t-f AttCZ-8FB01T^IttUfl)^* 

I^o 1340— 1380 frfi, USR0£J|?TLTX7-**jg§ft:l^C5Ili;Ti*L't#. 

2>tz&>(Db<D'C&%> o ZtD^vifyA /it, t*5 fe ^ -4 5 V 

£> L < , £«STATCigoT< T 2J eft^TUi. ZtlH 

rDATA REQUEST ti 1/ J t ? C t *©/i 0 TBUSYJ CtifcoTi^&nOTJb-So ffl 
-otzbCDtio L*>U C/iU/iA^fpTC hCbfcOTWo &C I860— 1900 frC& 
4 * 5 , t4 Fit, -fe^sat 

r— ^C^lSfST "MF-SUB" CioTSB^J 

VAR (— ) CAtt£*vT&4©*fo RUNT4t, F 7 1 7* " 1 : " CAotl'l.f-1 X 
CDA,t/9 t 7 * — Ty F-f4o # F 7 y 7 (frffi) itKXr-^X^iSl, 0 
•CUfr-Dlzb&M (5EI£T) 'n?'ftSJ:5CS:otv>S. 

9 X h 9-9 x-f *--7-y h 7 °p 7 ' 5 A(turb 0 BASIC TttftA'&l') 



1000 CLEAR &HC000 
1010 MEM$ ( &HDF00 , 16 ) =HEXCHR$ ( ”D5 
1020 MEM$ ( &HDF10 , 16 ) =HEXCHR$ ( ”D1 
1030 MEM$ ( &HDF20 , 1 6 ) =HEXCHR$ ( ” 5 5 
1040 MEM$ ( &HDF30 , 16 ) =HEXCHR$ ( "C6 
1050 MEM$ ( &HDF40 , 16 ) =HEXCHR$ ( ”23 
1060 MEM$ ( &HDF50 ,16) =HEXCHR$ ("79 
1070 MEM$ ( &HDF60 , 16 ) =HEXCHR$ ( " EA 
1080 MEM$ ( &.HDF70 , 1 6 ) =HEXCHR$ ( " E4 
1090 MEM$ ( &HDF80 , 16 ) =HEXCHR$ ( "18 
1 100 MEM$ ( &HDF90 , 16 ) =HEXCHR$ ( "DF 
1 1 10 MEMS ( &HDFA0 , 16 ) =HEXCHR$ ( "98 
1120 MEM$ ( &.HDFB0 , 1 6 ) =HEXCHR$ ( " 30 
1130 MEM$ ( &HDFC0 , 16 ) =HEXCHR$ ( "ED 
1140 MEM$ ( &HDFD0 ,16) =HEXCHR$ ( "DF 
1150 MEM$ ( &HDFE0 , 16 ) =HEXCHR$ ( "F6 
1160 MEM$ ( &HDFF0 , 16 ) =HEXCHR$ ( "0F 
1170 DEFUSR0=&HDF00 
1180 DEFINT A-Z : DIM VAR ( 40 ) , SQ ( 4! 

1190 DN= 1 : ’ K 7 -i J 

1200 AD=&HE000 : ’ 7 * - * 

1210 PRINT"MAKING DATA" : GOSUB"MAl 
1220 ’ 

1230 DUMMY=INP( &HFFF ) 

1240 OUT &HFFC , &H80+DN : GOSUB"WNBSY" : * -t - *9 ~ O N 

1250 OUT &HFF8 , &H0 : GOSUB" WNBSY" :* U X h 7 

1260 OLDTR=0 

1270 RESTORE " TYPE ": READ SECTORTYPE 
1280 ’ 

1290 FOR CYLINDER=0 TO 39 

1300 GOSUB” SEEK" : OLDTR=CYLINDER : ’SEEK 

1310 FOR SIDE=0 TO 1 

1320 OUT &.HFFC , &H80 OR DN OR SIDE*&H10 : ’ g ^ (D Bx £ 



1A 


13 


D5 


21 


1A 


DF 


16 


00 


87 


5F 


19 


5E 


23 


56 


EB" ) 


F3 


CD 


19 


DF 


FB 


D 1 


12 


C9 


E9 


32 


DF 


3C 


DF 


55 


DF" ) 


DF 


55 


DF 


5F 


DF 


84 


DF 


5F 


DF 


5F 


DF 


84 


DF 


BC 


DF" ) 


DF 


1A 


01 


F8 


0F 


ED 


79 


CD 


D2 


DF 


C9 


EB 


7E 


23 


56" ) 


5E 


01 


F9 


0F 


ED 


59 


01 


FB 


0F 


ED 


51 


01 


F8 


0F 


ED" ) 


CD 


D2 


DF 


C9 


1A 


01 


F8 


0F 


ED 


79 


CD 


D2 


DF 


C9 


CD" ) 


DF 


01 


F8 


0F 


D9 


01 


FB 


0F 


2A 


FE 


DF 


D9 


ED 


79 


CD" ) 


DF 


ED 


78 


0F 


30 


0B 


0F 


30 


F8 


D9 


ED 


78 


77 


23 


D9" ) 


F0 


07 


C9 


CD 


EA 


DF 


01 


F8 


0F 


D9 


01 


FB 


0F 


2A 


FE" ) 


D9 


IE 


00 


16 


02 


ED 


79 


ED 


78 


A2 


C2 


A4 


DF 


ID 


C2" ) 


DF 


18 


06 


D9 


7E 


ED 


79 


23 


D9 


ED 


78 


0F 


30 


0B 


0F" ) 


F8 


D9 


7E 


ED 


79 


23 


D9 


18 


F0 


07 


C9 


1A 


01 


F8 


0F" ) 


79 


CD 


D2 


DF 


C9 


1A 


01 


FC 


0F 


ED 


79 


B7 


F0 


CD 


D2" ) 


C9 


C5 


06 


20 


10 


FE 


01 


F8 


0F 


ED 


78 


4F 


E6 


81 


20" ) 


79 


Cl 


C9 


3E 


07 


3D 


20 


FD 


C9 


EB 


7E 


23 


56 


01 


FA" ) 


ED 


51 


F5 


CD 


D2 


DF 


FI 


C9 


00 


00 


00 


00 


00 


00 


E0 " ) 


)) 

' § 






























v 


h m r 


- * CD 7 K 


1/ 


X 

















:-format" : * 7 * - 7 V 

:’2D,2DDt-KI:t« 



2u u.mz&zxi 



1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 



GOSUB" SET-FORMAT” 

TRY = 0 

IF TRY> 5 THEN BEEP : PRINT : PRINT"ERROR" : GOTO 1430 
GOSUB "WTR" WRITE TRACK 

PRINT STAT;" : ’ PRINT STATUS 
IF STATO0 THEN TRY=TRY+ 1 : GOTOl 3 50 :’ RETRY 

NEXT 
NEXT 

’ DMA$=HEXCHR$ ( "83 " ) : GOSUB" SETDMA" 

PAUSE 1 

OUT &HFFC.&H3 AND DN:'^-?-OFF 

DUMMY=INP( &HFFF ) : ’ 2 D , 2 D D ^ - K \Z ? & 

END 



LABEL"SEEK" 

OUT &HFFB, CYLINDER 
OUT &HFF9 , OLDTR 
OUT &HFF8.&H10 
GOSUB" WNBSY" 

RETURN 



’ T - * 1/ V X ? 

1 - 0 n v > K 



LABEL"WNBSY" 

CT = 0 

IF CT> 1000 THEN PRINT"DISK?" : GOTO 1410 

IF INP ( &.HFF8 ) AND &H81 THEN CT=CT+l:GOTO 1560 

RETURN 

LABEL "SETDMA" 

FORI =1T0LEN( DMAS ) :OUT &H 1F80 , ASC ( MID$ ( DMAS ,1,1)) : NEXT 
RETURN 



LABEL" WTR" 

D2$=USR0( CHRS ( 9 , &HF0 , 1) ) : STAT=ASC ( D2S ) : RETURN 

DMA$=HEXCHR$ ( ”83 79 00 C0 AF 28 14 28 8D FB 0F 92 CF 05 CF 87") 
GOSUB "SETDMA" 

OUT &HFF8 , &HF0 : ’ 9 < V h 7 V 0 3 V > K 

S=INP(&HFF8 ) : IF S AND 1 THEN 1690 
STAT=S: RETURN 

LABEL "MAKE- FORMAT" 

VAR ( 0 ) = 0 : ’ CLEAR COUNTERS 

RESTORE"GAPl " : GOSUB"MF-SUB" : * MAKE GAP1 

RESTORE "TOTAL SECTOR": READ TSEC : ’ HOW MANY SECTORS ? 

FOR SECT= 1 TO TSEC 

RESTORE" SECTOR" : GOSUB "MF- SUB" '.’MAKE SECTOR FORMAT 
NEXT 

RESTORE"GAP4 " : GOSUB"MF-SUB" : * MAKE GAP4 

RESTORE "SQUE" 

FOR SECT= 1 TO TSEC 
READ SQ ( SECT ) 

NEXT 

RETURN 

LABEL"SET-FORMAT" : ’SET ID FIELD 
FOR P=1 TO VAR ( 0 ) 

MEMS ( VAR ( P ) ,*4 ) =CHR$ ( CYLINDER , SIDE , SQ ( P ) , SECTORTYPE ) 

NEXT 

RETURN 



LABEL"MF-SUB" 

READ C : IF C = 0 THEN RETURN:’ n Byte, DATA J 
READ D$ : IF D$<>"!" THEN D=VAL ( D$ ) : GOTO 1970 
’ ! . .MEANS "VARIABLE DATA" 

VAR( 0 ) =VAR ( 0 ) + 1 : VAR ( VAR ( 0 ) ) =AD : D=99 : ’ INC COUNTER, STORE ADDRESS 
IF C< 256 THEN MEM$ ( AD , C ) =STRI NG$ ( C , D ) : AD = AD+C : GOTOl 9 30 
MEM$( AD, 255 )=STRING$ ( 255 ,D) : AD=AD+255 : C=C-2 55 : GOTOl 970 

LABEL"GAP1 " 

DATA 32 , &H4E , 0 
LABEL" SECTOR" 

DATA 12,0,3, &HF5 , 1 , &HFE , 4 , ! 

DATA 1 , &HF7 , 22 , &H4E , 1 2 , 0 , 3 , &HF5 , 1 , &HFB , 256 , &HE5 , 1 , &HF7 , 54 , &H4E , 0 
LABEL"GAP4 " :’ 

DATA 266 , &H4E , 0 :’<-!!! !!! !!! 

LABEL "TOTAL SECTOR" 

DATA 16 :’<-!!! 

LABEL" SQUE" 

DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 
LABEL"TYPE" 

DATA 1 :’<-!!! 1 SECTOR 256 Byte O S 3 £ T A, i)* * 



^9^ 7o 7 b°-f^x; 213 



£T, X h 9-10 kWt-Z>k, ft 

Lk ft 512 s’t'f b<D7 *--?y F kft%<D ?$>&„ ZZfcHUZ h 9-11 C#*.* 
t, 1 -fe^^*U024^M M:4-3tU7®fi 0 rV X X 1 ftT 400K Frtf^o $ ?> 
CiSv»*%rt?r3. 3 T yf- F 9 4 7* XI turbo ft if© F 7 ^ 7' (CZ-800F/801F UW) ff 
F(iH42 '>'J 1290 ft© T39J £ T42J Ct5 fcfV X? lftT 

430 K/M F/i/i/i/’/io ! if- ot U K n #~ft<DT&Z 0 ZtlHf*-'*- h 9 y 7 J 

fcnftfns *>*>*> ah 40'>y y^jjjy*©*sa*, 

ft ftr-ftftH, Lft^ R©S5 h 9 y ft\ X'h%frb% 

‘MLXm «C. 

9 X F 9-10 f<X>7*-7'y^n^7A 1 -fe ;> ? = 512 '<-f F ffl^sE^ 



2000 LABEL" GAP1 " 

2010 DATA 32 , &H4E , 0 
2020 LABEL "SECTOR” 

2030 DATA 12,0,3, &HF5 , 1 , &HFE , 4 , ! 

2040 DATA 1 , &HF7 , 22 , &H4E ,12,0,3, &HF5 , 1 , &HFB ,512, &HE5 , 1 , &HF7 , 84 , &H4E , 0 
2050 LABEL" GAP4 " :’ 

2060 DATA 296 , &H4E , 0 :’<-!!! !!! !!! 

2070 LABEL "TOTAL SECTOR" 

2080 DATA 9 :’<-!!! 

2090 LABEL"SQUE" 

2100 DATA 1,2, 3, 4, 5, 6, 7, 8, 9 
2110 LABEL "TYPE" 

2120 DATA 2 :’<-!!! 1 SECTOR 512 Byte O -5 C fc T /L ** * 



9 X F 9-11 T-fX774-7'yF7’n^A 1 = 1024'^ 



2000 


LABEL” GAP 1 ” 




2010 


DATA 32 , &H4E , 0 




2020 


LABEL” SECTOR” 




2030 


DATA 12,0,3, &HF5 , 1 , &HFE , 4 , ! 




2040 


DATA 1 , &.HF7, 22 , &H4E, 12,0,3, &HF5, 1 , &HFB ,1 024, &HE5 , 


1 ,&HF7, 116,&H4E,0 


2050 


LABEL”GAP4 ” :» 




2060 


DATA 208 , &H4E , 0 : * <-! ! ! ! ! ! 


! ! ! 


2070 


LABEL”TOTAL SECTOR” 




2080 


DATA 5 : 1 < — ! ! ! 




2090 


LABEL”SQUE” 




2100 


DATA 1,2, 3, 4, 5 




2110 


LABEL”TYPE” 




2120 


DATA 3 :*<-!!! 1 SECTOR 1024 Byte 0*5 


£ t V A, 



ftft, \$\±&ttf&LXh%<DX, turbo©»£ttil>**JE-f 5 k DMA 

&CJ* M-12, 9-13T*$>3 0 ZftH G-RAM ~r -t ?> 

ft © tz 0 DXF 9-12 Tit, doap^Tfi, DATA 

REQUEST flPg-C*^. < FfrgT £ £ J: a C A' (X u S^x *) C, &C#§ S T - * 
£ffl*DT£>£0fi o 5 VifcUDS— OOjg&fllJC&o 

T©-5 0 
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•Jxh 9-12 G-RAM«r-f^?IS R/W7 , a?'7A 











. Z80 












.PHASE 


0DD00H 


0FF8 






CR 


EQU 


0FF8H ; COMMAND REG. 


0FF8 






STR 


EQU 


0FF8H ; STAT . REG. 


0FF9 






TR 


EQU 


0FF9H ; TRACK REG. 


0FFA 






SCR 


EQU 


0FFAH ; SECTOR REG. 


0FFB 






DR 


EQU 


0FFBH ; DATA REG. 


0FFC 

T 






MSDR 


EQU 


0FFCH ; MOTOR, SIDE .DRIVE# 5 


DD00 


D5 




START : 


PUSH 


DE 


DD01 


DD 


El 




POP 


IX ; IX=DE 


DD03 


DD 


66 01 




LD 


H,(IX+1) ; H=COMMAND 


DD06 


DD 


6E 02 




LD 


L , ( IX+2 ) ; L= SECTOR# 


DD09 


16 


FB 




LD 


D, LOW (DR) 


DD0B 


IE 


F8 




LD 


E , LOW ( STR ) 


DD0D 


D9 






EXX 




DD0E 


DD 


4E 04 




LD 


C, ( IX+4 ) 


DD1 1 


DD 


46 05 




LD 


B, ( IX+5 ) ; BUFF ADD. 


DD1 4 


ED 


78 




IN 


A , ( C ) ; GET FIRST 1 Byte 


DD1 6 


08 






EX 


AF , AF * ; A ’ =FIRST DATA 


DD1 7 


D9 






EXX 




DD18 


DD 


7E 00 




LD 


A , ( IX+0 ) ; GET ’R’ or 


DD1B 


F3 






DI 




DD1C 


FE 


52 




CP 


*R’ 


DD1E 


28 


0A 




JR 


Z , READD 


DD20 


FE 


57 


’ 


CP 


» w » 


DD22 


28 


2C 




JR 


Z, WRITD 


DD24 


DD 


36 00 FF 


* 


LD 


( IX+0 ) , 0FFH ; SET ERROR 


DD28 


FB 






El 




DD29 


C9 






RET 




DD2A 






READD: 






DD2A 


CD 


DD77 


RAGAIN: 


CALL 


SETFDC ; SET SCT#,COM. 


DD2D 


ED 


78 


RED1 : 


IN 


A , ( C ) *, GET STATUS 


DD2F 


0F 






RRCA 


; CHECK BUSY 


DD30 


30 


0E 




JR 


NC.RED2 ; END READ 


DD32 


0F 






RRCA 


; CHECK DATA REQ . 


DD33 


30 


F8 




JR 


NC.RED1 ; NO REQ. 


DD35 


4A 




’ 


LD 


C , D ; BC=DR 


DD36 


ED 


78 




IN 


A , ( C ) ; READ DATA 


DD38 


D9 






EXX 




DD39 


ED 


79 




OUT 


( C ) , A ‘ ; STORE DATA 


DD3B 


03 






INC 


BC ; NEXT ADD. 


DD3C 


D9 






EXX 




DD3D 


4B 






LD 


C,E ; BC=STR 


DD3E 


18 


ED 




JR 


RED1 


DD40 


07 




RED2 : 


RLCA 


; BACK STAT 


DD4 1 


DD 


77 00 




LD 


(IX+0), A ; STORE STAT 


DD4 4 


E6 


9F 




AND 


9FH ; CHECK ERROR 


DD46 


20 


06 




JR 


NZ.RED3 ; QUIT READ 


DD48 


2C 






INC 


L ; IX+2=SCTNO 


DD49 


DD 


35 03 




DEC 


( IX+3 ) ; IX+3=COUNT 


DD4C 


20 


DC 




JR 


NZ, RAGAIN 


DD4E 


FB 




RED3 : 


El 




DD4F 


C9 






RET 




DD50 






WRITD : 






DD50 


CD 


DD7 7 


WAGAIN: 


CALL 


SETFDC ;SET SCT#,COM. 


DD53 


ED 


78 


WRT1 : 


IN 


A, (C) 


DD55 


0F 






RRCA 


‘.CHECK BUSY 


DD56 


30 


10 




JR 


NC.WRT2 ; END WRITE 


DD58 


0F 






RRCA 


; CHECK DATA REQ. 


DD59 


30 


F8 




JR 


NC.WRT1 ; NO REQ. 


DD5B 


4 A 




1 


LD 


C , D ;BC=DR 


DD5C 


08 






EX 


AF , AF * ; A ’ =DATA 


DD5D 


ED 


79 




OUT 


( C ) , A ; WRITE DATA 


DD5F 


D9 






EXX 




DD60 


03 






INC 


BC ;INC ADD. 


DD61 


ED 


78 




IN 


A , ( C ) ; GET NEXT DATA 



%9m 7D 7 t-fU? 215 



DD63 


08 






EX 


AF , AF ’ 


; A ’ =NEXT DATA 


DD64 


D9 






EXX 






DD65 


4B 






LD 


C , E 


;BC=DR 


DD66 


18 


EB 




JR 


WRT 1 




DD68 


07 




WRT2 : 


RLCA 




; BACK STAT 


DD69 


DD 


77 00 




LD 


( IX+0 ) , A 


; STORE STAT 


DD6C 


B7 






OR 


A 


; CHECK ERROR 


DD6D 


20 


06 




JR 


NZ.WRT3 


; ERROR THEN END 


DD6F 


2C 






INC 


L 


; IX+2=SCTNO 


DD70 


DD 


35 03 




DEC 


( IX+3 ) 


; IX+3=COUNT 


DD7 3 


20 


DB 




JR 


NZ , WAGAIN 


DD75 


FB 




WRT3 : 


El 






DD7 6 


C9 






RET 






DD7 7 


7D 




SETFDC : 


LD 


A , L 


; IX+2=SCTNO 


DD7 8 


01 


0FFA 




LD 


BC , SCR 




DD7B 


ED 


79 




OUT 


(C) , A 




DD7D 


01 


0FF8 




LD 


BC , CR 


; CR=STR 


DD80 


ED 


61 




OUT 


(C) ,H 




DD82 


3E 


07 




LD 


A, 7 




DD84 


3D 




WAIT: 


DEC 


A 




DD85 


20 


FD 




JR 


NZ , WAIT 




DD87 


C9 






RET 







END 



l ) X b 9-13 G-RAM*->-rV x □ ^'7 A 



270 '100 - 270 =*” n ';xh9-5 7H 

280 CLEAR &HDD00 



290 


MEM$ ( &HDD00 ,16) =HEXCHR$ ( 


M D5 


DD 


El 


DD 


66 


01 


DD 


6E 


02 


16 


FB 


IE 


F8 


D9 


DD 


4E" ) 


300 


MEM$ ( &HDD 1 0 , 1 6 ) =HEXCHR$ ( 


"04 


DD 


46 


05 


ED 


78 


08 


D9 


DD 


7E 


00 


F3 


FE 


52 


28 


0A" ) 


310 


MEM$ ( &HDD20 ,16) =HEXCHR$ ( 


"FE 


57 


28 


2C 


DD 


36 


00 


FF 


FB 


C9 


CD 


77 


DD 


ED 


78 


0F" ) 


320 


MEM$ ( &HDD30 , 16 ) =HEXCHR$ ( 


"30 


0E 


0F 


30 


F8 


4 A 


ED 


78 


D9 


ED 


79 


03 


D9 


4B 


18 


ED" ) 


330 


MEM$ ( &HDD40 , 16)=HEXCHR$( 


"07 


DD 


77 


00 


E6 


9F 


20 


06 


2C 


DD 


35 


03 


20 


DC 


FB 


C9 " ) 


340 


MEM$ ( &HDD50 , 16)=HEXCHR$( 


"CD 


77 


DD 


ED 


78 


0F 


30 


10 


0F 


30 


F8 


4 A 


08 


ED 


79 


D9 " ) 


350 


MEM$ ( &HDD60 , 16)=HEXCHR$( 


"03 


ED 


78 


08 


D9 


4B 


18 


EB 


07 


DD 


77 


00 


B7 


20 


06 


2C" ) 


360 


MEM$ ( &.HDD70 , 16)=HEXCHR$( 


"DD 


35 


03 


20 


DB 


FB 


C9 


7D 


01 


FA 


0F 


ED 


79 


01 


F8 


0F" ) 


370 


MEM$ ( &HDD80 , 1 6 ) =HEXCHR$ ( "ED 


61 


3E 


07 


3D 


20 


FD 


C9 


00 


00 


00 


00 


00 


00 


00 


00" ) 



380 DEFUSR2 = &HDD00 
390 » 

400 GOSUB"GSMPL" 

410 D$ = USR0 ( CHR$ ( 11 , &H8 1 ) ) : * MOTOR ON 

420 D$=USR0 ( CHR$ ( 0 , &H2 ) ) :’ RESTORE 

430 TR0 = 0 : FTR=0 : FSCT= 1 : COM$= " W" +CHR$ ( &HA0 ) :HI=&H40 

440 SCT=256 : SPT= 16 

450 GOSUB"R/W” 

460 ’ 

470 BEEP : CLS4 

480 D$=USR0 ( CHR$ ( 0 , &H2 ) ) : ’ RESTORE 

4 90 TR0 = 0 : FTR = 0 : FSCT= 1 : COM$="R"+CHR$ ( &H80 ) :HI=&H4 0 

500 SCT=256 : SPT= 1 6 

510 GOSUB"R/W” 

520 D$=USR0(CHR$( 11 ,&H1 ) ) :’ MOTOR OFF 

530 END 
540 ’ 

550 LABEL"R/W" : ’GIVE ME TR0 , FTR , FSCT , COM$ , HI , SCT , SPT 
560 TR=FTR : SABA=FSCT : PLUS=SCT*SPT/256 
570 FOR SIDE=0 TO 1 

580 D$=USR0(CHR$( 11 , &H8 1 +SIDE* 16 ) ) MOTOR ON 

590 D$=USR0 ( CHR$ ( 1 , &H1E , TR , TR0 ) ) : TR0=TR :’SEEK 

600 IF HI+PLUS>=&H100 THEN P= ( &H 1 00-HI ) / ( SCT/256 ) ELSE P=SPT 

610 IF SABAOl THEN P=P-SABA 

620 D$=USR2 ( COM$+CHR$ ( SABA , P , 0 , HI ) ) :SABA=1 

630 PRINT ASC ( D$ ) , SABA , P , HEX$ ( HI ) 

640 HI=HI+P* (SCT/256 ) : IF HI>=&H100 THEN RETURN 

650 NEXT 

660 TR=TR+1 :GOTO570 

670 ’ 

680 LABEL"GSMPL" 

690 C^S4 : INIT 

700 FOR 1=0 TO 1 0 : Xl = I NT ( RND ( 1 ) *640 ) : Y1 = INT ( RND ( 1 ) *200 ) : C=INT ( RND ( 1 ) * 7 ) + 1 
710 LINE (X,Y)-(X1 ,Y1 ) ,XOR,C:X=Xl :Y=Y1 
720 NEXT: RETURN 



216 n.mzih&xi 



'/ X b 9-13 G-RAM « FD Ol« fg/P-A 7, USR2 ©«?tf#B:, 

USR2 ({I^I }+CHR$ (372F, ftlf^XX, -trXXISt, 7F>XTS, 7 KUX 

±fi)) 

T£>3 0 7Fi/Xt(j;f-?®fe^G-RAM©7Fi/7tib5o :©7Fwx(i, X"X 
7 -i v?±mm<D*-7/v~Yts;£'C\$mkfcm'G?Z>b<Dt£<D’?, POKEXSHK^fc 
<%fr-otz<Dtz 0 ZCDMMV t LZMML J P~f A,X ^tzti 

%tz^ 0 /n77 ATfi ^©^7 

□ yhf — r^f XXC-fe — :/, HffiXOT, G-RAM ^\©n— R ^fr^e-oT^-So Wfeb'£> 
r>tz(DT, an® 

E#CjitTV^-g> £ i~&£)*>, lJi^© 16 -fe:XX£B!All : §-r3Cfi 0.2 

T’/n- Kt’SKfiS'— XBfHg£Aft& < Ti, ifXLTfc 
Z(D&g[<DB$ Ztll±l±(D 
Z X h 9-10, 9-11 1 bXyXSfc!?©^;t£it^T£fc*U 

1-feXX 1024 'nM b©7*— vy b&<Mf, 5 S' 1 / 77* (50 K>nM 
h) ^H®d— F/-te-7'(i'>-7B#ra ; &Atl-fE 2 & £ (bfrfc 

S' — X** 1 ®A'& < T$rt?) 0 FDC -5 KLtS< , /£ < 4oTV^< CDT£> 

ofc. 

TYPE IV 

XI ©%£« n v y F <DfJ%W 0 Sto&ftffr Tfc 5 0 



HGTDMAT&S 

X X /> //Ati DMA b*i&ll 5©t, turbo/ turboZ a. — -tf — ff (/ }; £> -g> 0 

ST, 2D, 2DD©rV XX <D%t>\$ DMA **& < t 2HD fc & 

r-X©fs^iigbt 2 ®C^S©T', CPUtXt 3 Xt 3 tf -7 
*»o T vvfc fc 6 tf IHJC^fo * < * o T L 3^ ©Tfc 4 . * £ ■? DMA fc x -f X X 

7X-feX^fcfla»$;btf-r*4o S&AC, 'JXtHCDMA §ibfCft7X7X 
•feXT^7°nX"XA-rKtA’t C1X>, *»i 5 b^i' D t TLOST DATA x X - J **jg £ 
tblo*„ ZtDX-KfoVChZfrlb, ^ttt) DMAttfc*f#-Ctt*v»0T2bSo 
ZIiS!l/i*5, turbo ^.— +7— T2HD £I#oTi/>£Ali£> £ -5 0 LiA? 

DMA ot0f >f X X 7 X-feXIi, 2HD If ^ 9 T & & © T £ £ <, 

S>, 

2D, 2DD Tfc "Cc* &(Dtz 0 

*(Dm&(DX V y Mi, 

1 ) Xo^?A#W< 4 S 

2) ®X>tV^tK, T-JP BASIC TfI7tU X 
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2&T$>6 0 tOfcftCfo tJ3< t, Sfc 9 if© £££**, 2D, 2DD Tfi DMA 
£{£oT*)fEb&< Ti, **Wc!J- 

F/9 4 F©il$f;i^;bS&v>„ 

t SS-CCZ-520F^turboIII, Z ©ftj® F 7 'f -fta £<D 2D, 2DD, 2HD itffl X 7 :/© 

**l6©F?4:/tt2D0#S&*ttT3 3:&*, *3&**Lfc*e>»ffl&©2D 
jfffl© Zt T&S (2DD ttflgjSfci'Oo 

Ifrficia t, tz fc*.ffx>f 'yf-zwoma? ZD^e-FC-rSo t0!WlT, r 'f X 
X (*>%S/u2D©7*--7y MC*oTV»4) CW§t^!:t5o 
©77 7°© F7^f ^Ttttf&Ctt^Offljlfe*^©*!#, ftfe©2Di|ffl© F'7S 7* 
(X1G, turbo, turbo II ©F*3)§o F 7 -Y X', CZ-800F, 801F, 502F * if) 

St, 'J-FX7- Am § S h%(Dtia fe©ff§*&T*S*6*jSKLfc©*f 

*5, turbo ©ft/t F 7 -f 7'TH 34 # F 7 7 7 h tz V £ Tht i. -d tz<Dtztf 35 # F 7 y 7 
TV - Kx?-i«iBST t * ofco t S 5pt'-o Z t> CZ-800F TlitA,% V bU$>X L 
£-?tzCDT$>6 o f©±- tt*frv»fc«jffcv» 0 S©*ttfffi, 

$1*© F7S 7*Kfet^T ; btti52(ilulD/i ; edTS)So 
=&*?, 2HDT«r^ X7©l3fSiEg*s@#360l3 

( = @#613) T*9, 2D, 2DD-C«@^300[3 (=@#513) T$>6 0 + %t>t>2D, 
2DD, 2HD*ffl^-f^©F5-f r«, IMP*— FC ct ot0eigi5gMKlb50t 
£>S 0 



BiMT&Z 

Z Z T — WKf o T io < o -^*^1 JL L A: t S. X) %(Dt£i)S, turbo, turbo II & ifTht, 7 — 
v;w© 2D*ffl FX'f 7*T (O £ 0 2HD *JR*.4V» F 7 4 XT) 5 S (FM 

^) tfffiASJ:'} &©-C£S (7iD 5^ 7^©2S bv^7t-v-n)o 
2S fo IS (AppleDtt 

IS CjfiViS- a fi*5, ^totl9)„?©J:“^bltt, ^©X4 3 X i ac:©7^-'7 7 F 
£ 0 4K-&-fTK:5ECi|ft^ , rLJ5 oft7#-?y FTfcS*»6, (E^if &&v>© 
T*S 0 #lffi7G©5' + “X’Tfc 2S COV>T«Hfc^|EL&t>fiS5 t,B#tlSo 

**T &3 

Xl©5S7f-2HD®tlS7^-V'y FCtt XI 7*-7y F fcH*jl7 * -7 y F© 2 
«S**&S 0 XI 7*-7y F tfi^MFMT, 77'>')>X, 2 IMF, #t^fFK(i 
77 F 7 y 7 £> D , 1 F 7 7 7 Ctt 26 -fe X 7 £> V , -fe77®§llt 256 F©(&£>ffi® 

^V*) 7 t— 7y F T$> S„ ^#7^-— 7y F fc&, IBM 7*— 7y F (87 >f-) tH 
U7*-7y FT, 7 7'©^M F 0**#8f£C*o-a»3 fcOTfcSo 

27S tS^tCtflS XI 



T% iiTfiXl 7*-vy F LT|g£jt*5o £-ftt'j;iM-l4 

T*So Cliili!)^h9-5CffiSf5t0Ti«, otD, FDC © MB8877/8876 ®3? 
VF*1-'<T5lfft k SSJ:'5KbT*So BASIC hi turbo BASIC (CZ-8FB02) X 
^tztzZtz^ o ffiV»^ttE3o©*|S[, TR, OLDTR, SCT, CMD K&S£tt* AftT 
GOSUBS SOT&So #T%a*5 X***5 kC*S© 

T% ltiTliBS7r4W?Aoti^f-fX;ii, SM© F 7 4 7><?>$U>Tio < <1 
to LOAD, SAVE fcfffc 5 t § Ctt, *-?\t 

FILES Lr'-r X X if 0 COX- F*SU*> L < 

e>, *4fe0i»*iisns*>?., *u 

T, *j£C IPL DMA #*©»** 

*6*V»«^feJbS©T^TV»fc«i»fcV»o **, 1020 frt 1150ffK:rCMD=- 1 Jt 

Z.fimztz(DW.&b<Dt%3LX^tztl%tz^ 0 ^y7rffl®f 
C000 h~*«oTV»5o y - F i;,E8B0„JbfcD S TfH-5 C 

t £ * £ ©T, £ tz 4K /nM F S & 0 Ttt 1190 b &} £ £ if XVP- f- V &JW 

C(§PI&T -5 o 

• "SET HD" 

2HD © MFM ^-FKtSo jB#K It, 1200 'fjT 2HD X — F C L, 1210 frT MFM * 
“FCLTV^o 2HDtMoTfc, MFM (MS) tFM MS) © 2 «S**2b 3 ©*£, 

• "SET LD" 

2D, 2DD«-FC-rs 0 

• "SET FM" 

2HD©FM^-F (MS) K-t&o 

• "MOTOR" 

F 7 4 -/(DX — ?-(D ON/OFF, S4 F©7liR£T-5 0 

• "RESTORE" 

10 (^y F *£■&*•*). 

• "SEEK" 

^yK4»#t5 o 5&* D© F?y?#^fiOLDTR, frSft© F ? y TR T 

&- 5 0 

• "STEP" 

• "STEP IN" 

F3ffl In]) C 1 h77?^-^t5o 

• "STEP OUT" 

^FfPJJ (Fy yX#-ta*MS:£|oj) C 1 F 7 y t5» 

• "READ DATA" 

sct TjBjgsnfc#^©*^^* cooo H ^6ett*tti , *\, 

3t, ZZTffl&X DMA<Dgi§?$>2>0 DMA Ej^f53 7 F a-A-p^te 1700 fjC 

*9* 7o„e-f<x? 279 



$>6 th'Oo 

83 H = WR6 T DMA W±<OM^o 

7d„=wro Tmmmm-c, f f b zts% 0 mm- f a ©§ g 

jiSTF^Xk 7'uy? MitfMZo 

FBh, OF h = FDC ©7-7 l^'7'X7© I/O 7 F l^X c 

FF„, 00„ = 7‘d v 7H(DMA ©fR-aCJ: D — 1 BT# < ) 0 Hz7 7^256/nM Fff 
frhhdteh o 

2C h =WR 1 77- FAIi7 F I/O T*4 Cl h 

10„=WR277-FB«7F^X*M77l>7y F (if»0) 77 * 'J 7£>S - i: 
80 h =WR 3 Lt4^ 0 

8D„=WR4 7'-M F^-F^FI^o &C7-F B®»7FwXiS^5o 

00h, C0 h = 7 1) ©r — 7£S^ (A’y7r) ©7Fi^x 0 

92 h = WR5 7 CE/WAIT £v;l/77V7X, Jfcl/f-l ©®4 Low 0 

CF H =WR6 tn — F 3 v y F 0 

87 h =WR6 7 DMA 7 *-7VPo 

ULt© i -5 C DMA £82^07^3 fc, DMA It FDC frh<D A 
ho fit’FDCCJ-FnvyF^ot^St, *©& FDC t DMA ©F^TM¥t-r 
- 7 ©<£& § L 7 < tlh o DMA F 7 - F 7£> h h , & H 41ot CPU *5 

KfFUTv^o r-7 y-F^H-too/vr^t'a^Ii, CPU a* FDC ©Xr-7 x i/i>'A 7 
£M3RoT, BUSY 7& < ^o/:^T'¥!|E&t75c Iffrofc&^DMA G 83 h £j£oT®j 
fF£ffit£i±T:}o <o 
• "WRITE DATA" 

SCT 7|g5g £ tWe#^t© -te 7 7 C C000„i» ‘'>©r-7£##3Ai? 0 
DMA CStS 3 7 F n — ;pp*3^Ii, 

83 h = WR6 7 DMA fSUt©B5fco 

79„=WR0 7®jmifS£7, ^|oH±jK- F B— jK-F A £fg£(&7tf- F A^tf- 
F B G7o < DH7)o &CjK- F A©|fl&j7 F I'X fc 7* a y7W*5 0 
00 H , C0 h = r — 7 T>I^t© 7 F P X o 

FF h , 00 H = 7ny7JI(DMA©S^GJ: 9- 1 L7iS<) 0 1 -fe 7 7*» 256 F fi 
frhhdKh o 

14„=WR17;tf-F Att7F^X*M77'/7 7F (igfrD) 7, 7 * l) 7& -5 Cl t «• 

m^o 

28 h = WR2 77° - F BB7F VAimfe?l/0 T&hht £FI5£ 0 
80 h =WR 3 TiRpCHfe Lt^V'o 

8D„=WR4-C^M F*-F£fg£o ifcCtf-F B ©HB&7 F UX***S 0 

FB h , 0F H = FDC©r-7w7X7©I/O7Fi'X o 

92 h = WR5 7 CE/WAIT £v^77V7X, £ ft u r 7 ©®4 it Low 0 
CF h =WR6 7 , d-K3?>F, ZtUZX 0<$<7)t Zh 2/<7 F S© 79 H *Cy-7fJ 
220 t£jg^(C£b-S> XI 



h B CHS&J7 Fl'A (OFFB H ) * 5 o— K£ti3 0 EIE 

fifCS&^L&V'o 

05h = WR 0 -C*°- F A->tf- b B 
CF„ = WR 6 T fc ^ — «o - F 3 t > Fo 
87 h =WR6 -C DMA 4 ^-7’)V 0 

JJLt©K 3 eoftCFDCK:f , -^ 9 >f hnvyFJlot^S!;, DMAhFDC* 5 W 
CtSiifri J f , ot<nS, *©«*>« "READ DATA" fc|SIUo 

• "READ ID" 

7*0 -y 7 £** 6 /M JJ0MJ "READ DATA" h^U CJX IfPtt - 1 

t T 05 h , 00 hE^oTV^) o 

• "READ TRACK" 

7 *o 7 7 ft * 5 28B0h 

• "WRITE TRACK" 

7*o 7 7 ft * 5 28B0h 

• "FORCE INT" 

FDC COV7K 

;©±-Clt DMA -i X7 7 7-tr BASIC LtlHffltln 

fc 0 9Xh 9-14 Tfi CZ-520F £ F 7 -f 7*2, 3 t 1020 fr£ 

GOSUB "SET LD" CU 1030fr«tift\ "MOTOR" C^iSnvyF (CMD) £& 
H81 &£fC7-5 tM© F74/1C DMA £^oT 77 -feX'C §& 0 



h \Zt£r>tzZ.t JiWfJ "READ DATA" EIrIUo 
hGfto fc H fc "WRITE DATA" fc HCo 



9 7 h 9-14 DMA tf-( 7 7 7' 7 4:7 



1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 



CLEAR &HC000 
’ TR , OLDTR , SCT , CMD 

CMD=-1 : G0SUB"SET HD" 
CMD=&H82 : G0SUB ,, M0T0R" 
CMD=&H0 : GOSUB"RESTORE" 

' TR= 1 : OLDTR=0 : CMD=&H1C : GOSUB"SEEK" 

' CMD=&H38 : GOSUB"STEP" 

* CMD=&H58:GOSUB"STEP IN” 

» CMD=&H78 : GOSUB "STEP OUT" 

SCT= 1 : CMD=&H80 : GOSUB"READ DATA" 

SCT= 1 :CMD=&HA0 :GOSUB"WRITE DATA" 

' CMD=&HC0 : GOSUB"READ ID" 

’ CMD=&HE0:GOSUB"READ TRACK" 

» CMD=&HF0 :GOSUB"WRITE TRACK" 

1 CMD=&HD0 : GOSUB "FORCE INT" 

CMD=- 1 : GOSUB "SET LD" 

CMD=&H2 : GOSUB " MOTOR " 



: G0SUB"ER? " 
: G0SUB"ER? " 
: G0SUB"ER? " 
: GOSUB "ER?" 
: GOSUB "ER?" 
: GOSUB" ER?" 
: G0SUB"ER? " 
: G0SUB"ER? " 
: GOSUB"ER? " 
: GOSUB "ER?" 
: GOSUB"ER? " 
: GOSUB "ER?" 
: G0SUB"ER? " 
: GOSUB"ER? " 
: G0SUB"ER? " 



LABEL"SET HD" 

DUMMY=INP ( &HFFE ) : ’ 2HD MODE 

DUMMY= INP ( &HFFD ) : * MFM MODE 

STAT=0 
RETURN 



LABEL"SET LD" 

DUMMY=INP ( &HFFF ) :’2D/2DDMODE 

DUMMY=INP ( &HFFD ) :* MFM MODE 

STAT=0 
RETURN 

LABEL" SET FM" 

DUMMY = INP ( &HFFE ) : ’ 2HD MODE 
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1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 



DUMMY=INP ( &HFFC ) : ’ FM MODE 

STAT=0 
RETURN 



LABEL"MOTOR" 

OUT &HFFC , CMD 

IF CMD AND &H80 THEN GOSUB" WNBSY" 

RETURN 

LABEL "RESTORE" 

OUT &HFF8 , CMD 
GOSUB "WNBSY" 

RETURN 

LABEL"SEEK" 

OUT &HFFB , TR : ’DATA REG. ( g ft © '> U 

OUT &HFF9 , OLDTR : ’ TRACK REG . ( Jg £ <D 5/ »J > y # ^ ) 

OUT &HFF8 , CMD 
GOSUB" WNBSY" 

RETURN 

LABEL"STEP" 

OUT &HFF8 , CMD 
GOSUB" WNBSY" 

RETURN 

LABEL"STEP IN" 

OUT &HFF8 , CMD 
GOSUB "WNBSY" 

RETURN 

LABEL"STEP OUT" 

OUT &HFF8 , CMD 
GOSUB"WNBSY" 

RETURN 



LABEL "READ DATA" 

DMA$=HEXCHR$ ( "83 7D FB 0F FF 00 2C 10 80 8D 00 C0 92 CF 87") 
GOSUB "SETDMA" 

OUT &HFFA , SCT : ’SECTOR REG. 

OUT &.HFF8 , CMD 
GOSUB"WNBSY" 

GOSUB "RESETDMA" 

RETURN 

LABEL"WRITE DATA" 

DMA$=HEXCHR$ ( "83 79 00 C0 FF 00 14 28 80 8D FB 0F 92 CF 05 CF 87 
GOSUB" SETDMA" 

OUT &HFF8 , CMD 
GOSUB"WNBSY" 

GOSUB " RESETDMA " 

RETURN 



) 



1850 ’ 

1860 LABEL"READ ID" 

1870 DMA$=HEXCHR$ ( "83 7D FB 0F 05 00 2C 10 80 8D 00 C0 92 CF 87") 

1880 GOSUB"SETDMA" 

1890 OUT &HFF8 , CMD 
1900 GOSUB"WNBSY" 

1910 GOSUB "RESETDMA" 

1920 RETURN 
1930 ’ 

1940 LABEL "READ TRACK" 

1950 DMAS =HEXCHR$ ("83 7D FB 0F AF 28 2C 10 80 8D 00 C0 92 CF 87") 

1960 GOSUB "SETDMA" 

1970 OUT &HFF8 , CMD 
1980 GOSUB" WNBSY" 

1990 GOSUB "RESETDMA" 

2000 RETURN 
2010 ’ 

2020 LABEL"WRITE TRACK" 

2030 DMA$=HEXCHR$ ( "83 79 00 C0 AF 28 14 28 80 8D FB 0F 92 CF 05 CF 87") 
2040 GOSUB "SETDMA" 

2050 OUT &HFF8 , CMD 
2060 GOSUB"WNBSY" 

2070 GOSUB "RESETDMA" 

2080 RETURN 
2090 ’ 

2100 LABEL" FORCE INT" 

2110 OUT &HFF8 , CMD 
2120 STAT= INP ( &HFF8 ) 

2130 RETURN 
2140 ’ 



BUfcfcUS XI 



2150 LABEL " RESETDMA " 

2160 DMA$ =HEXCHR$ ("83" ) : GOSUB"SETDMA" 

2170 RETURN 
2180 1 

2190 LABEL"WNBSY" 

2200 CT=0 

2210 IF CT> 1000 THEN OUT &HFFC , &H3 AND DN : PRINT "DISK? " : STOP 
2220 STAT=INP ( &HFF8 ) : IF STAT AND &H81 THEN CT=CT+l:GOTO 2210 

2230 RETURN 
2240 ’ 

2250 LABEL" SETDMA" 

2260 FOR 1 = 1 TO LEN ( DMAS ) : OUT &.H1F80 , ASC ( MID$ ( DMA$ ,1,1)): NEXT 
2270 RETURN 
2280 » 

2290 LABEL"ER? " 

2300 PRINTHEX$ ( CMD ) , HEX$ ( STAT ) 

2310 RETURN 



DMA Zfe'itzT J X77 h 7 'JXh 9-9 9-11 Cfigo 

X LX^tztintz^ (1010~1170 ff C) „ T £ htfitzb <D 

y X h 9-8 MS MSI - 5 7* 4 Ztlit turbo BASIC 

T%Kl< i 5 CSoTUi ( 3 A CZ-8FB01 Ti|{) 0 RUN f St K 7 ^ 7*#^t 1 
(2HD)KAotl.^f-f h i. 5CLtl>5o 

i ho 

$e>K« 2000tTJ'm«' l lX h 9-15 hiLiiSt, 1-fe ?*©£*** 512^4 hT-fe 

13 9-11 nj* 1 9-9j-*DMA Jftofc 2HD tU? 7*-77|' ^n77A^»fI* 



1010-1 170^*111$ 

1200 AD=&HC000 : ’ 7 * - V '7 Mf-^OTKI/X 

1230 DUMMY=INP ( &HFFE ) :’2HDt-Kfct8 

1290 FOR CYLINDER=0 TO 76 : ’ 7 Y S I I 

1440 DUMMY = I NP ( &HFFE ) :’2HDt-Kt:t5 

1650 * D2$=USR0( CHR$ ( 9 , &HF0 , 1) ) : STAT = ASC ( D2$ ) : RETURN : 9 01 \ ffc ? £ 

2000 LABEL"GAP1 " 

2010 DATA 80 , &H4E ,12, &H00 , 3 , &HF6 , 1 , &.HFC , 50 , &H4E , 0 
2020 LABEL" SECTOR" 

2030 DATA 1 2 , 0 , 3 , &HF5 , 1 , &HFE , 4 , ! 

204 0 DATA 1 , &HF7 , 22 , &H4E ,12,0,3, &HF5 , 1 , &.HFB , 256 , &HE5 , 1 , &HF7 , 54 , &H4E , 0 
2050 LABEL"GAP4 " : ’ 

2060 DATA 598 , &H4E , 0 :»<-!!! !!! !!! 

207.0 LABEL"TOTAL SECTOR" 

2080 DATA 26 :*<-!!! 

2090 LABEL"SQUE" 

2100 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 
2110 DATA 17,18,19,20,21,22,23,24,25,26 
2120 LABEL"TYPE" 

2130 DATA 1 :»<-!!! 1 SECTOR 256 Byte 
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??<DWtJ)S 15 fi, ') * V 9-16 tmLWZ-Z t 1^* *©§*** 1024 /nM h T-t? 7 ^£>SS( 
#f8i07*-7y bfcfcSo V* h 9-17 It FM (#?gg) ffi£>7*- 

*?'? YThZo 1235 ff t 1445frfcV>o b 

fc % 5 h& 1 0ITIET 2D, 2DD C 7 * - 1 v y b * fr fr £ ± 5 C*H*f £ Cl t fc RjfgT 
£So ^0;S^ov^TfiS*®f^!-e*So 



'J*h9-15 2HD 1 -fe** 512/W h^0>SKjS 



2000 LABEL” GAP 1 " 

2010 DATA 80 , &H4E , 1 2 , &H00 , 3 , &HF6 , 1 , &HFC , 50 , &H4E , 0 
2020 LABEL” SECTOR” 

2030 DATA 12,0,3, &HF5 , 1 , &HFE , 4 , ! 

2040 DATA 1 , &HF7 , 22 , &H4E ,12,0,3, &HF5 , 1 , &HFB ,512, &HE5 , 1 , &HF7 , 84 , &H4E , 0 
2050 LABEL”GAP4 ” :* 

2060 DATA 400 , &H4E , 0 :’<-!!! !!! !!! 

2070 LABEL "TOTAL SECTOR" 

2080 DATA 15 :*<-!!! 

2090 LABEL "SQUE” 

2100 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 
2110 LABEL”TYPE” 

2120 DATA 2 : ' <-! ! ! 1 SECTOR 512 Byte 0 5 Cl £ V A, 1>* & 



ijxh9-16 2HD 1 -tr7 7 1024 /<>f h 



2000 LABEL”GAP1 ” 

2010 DATA 80 , &H4E ,12, &H00 , 3 , &HF6 , 1 , &HFC , 50 , &H4E , 0 
2020 LABEL "SECTOR" 

2030 DATA 12,0,3, &HF5 , 1 , &HFE , 4 , ! 

2040 DATA 1 , &HF7 , 22 , &H4E ,12,0,3, &HF5 , 1 , &HFB , 1024 , &HE5 , 1 , &HF7 ,116, &H4E , 0 
2050 LABEL "GAP4" :» 

2060 DATA 654,&H4E,0 :*<-!!! !!! !!! 

2070 LABEL "TOTAL SECTOR" 

2080 DATA 8 :»<-!!! 

2090 LABEL"SQUE" 

2100 DATA 1,2, 3, 4, 5, 6, 7, 8 
2110 LABEL" TYPE" 

2120 DATA 3 :»<-!!! 1 SECTOR 1024 Byte OdCfcTA,#** 



MXh9-17 2HD 1 4z7 7 128 h ^<Z)$5E^ 



1235 


DUMMY=INP ( &HFFC ) 




: * F M * - K 


£ t -5 


1445 


DUMMY= INP ( &HFFD ) 




: ’ M F M * - 


Kl:t8 


2000 


LABEL" GAP 1" 








2010 


DATA 40 , &.HFE , 6 , &.H00 , 1 , 


&.HFC 


, 26 , &HFF , 0 




2020 


LABEL" SECTOR" 








2030 


DATA 6 , &H00 , 1 , &HFE , 4 , ! 








2040 


DATA 1 , &.HF7 ,11, &.HFF , 6 , 


&H00 


, 1 , &HFB ,128, &HE5 , 1 , &HF7 , 27 , &HFF , 0 


2050 


LABEL"GAP4 " 








2060 


DATA 247 , &HFF , 0 : » <-! 


i t 


! ! ! 


! ! ! 


2070 


LABEL "TOTAL SECTOR" 








2080 


DATA 26 :'<-!! 


! 






2090 


LABEL"SQUE" 








2100 


DATA 1,2, 3, 4, 5, 6, 7, 8, 9 


,10, 


11,12,13,14,15,16 




2110 


DATA 17,18,19,20,21,22 


,23, 


24,25,26 




2120 


LABEL"TYPE" 








2130 


DATA 0 : ’ <-! ! 


! 1 


SECTOR 128 Byte oK 


t t a, a* & 



224 KJR^ttJiXl 



£Lt0 7*-Vy »?tt, ^CJ:oT##*lKlO©J5lftec*oTV» 

£ O 

'7 J J - 7<?^3riT*3 

DMA ©ttH tLt^^‘JtI/0 ttHSfcft*. * ; T&©1 «Ir] k 

ttf&ci o , ux h 9-14 cjx h 9-i8 &iiin £wtz> fd~g-ram 

/n^AWITL^^onSo Tj 

I/O KUktk.7 Ki'XfcG-RAMoa&S 0© 4000„K:Ufc£ kV**,,^ If Sit 

i otftll.xL^So k#< tiot^U |J0 £ * S **, Httf-ti/fUT 

kv>-5©(i, BASIC *SG-RAM <D'?>7 0, 1 ^ig^C-©?) &*.&;&>£>*© 
Tfo ICS^kkio 

U X 1 9-18 G-RAM yX-teXfij^M^ 

1700 DMA$=HEXCHR$ ( "83 7D FB 0F FF 00 2C 18 80 8D" ) 

1705 DMA$ = DMA$ + MKI $ ( &H4000 ) +HEXCHR$ ( M 92 CF 87”) 

1790 DMA$=HEXCHR$ ( "83 7 9 ” ) +MKI $ ( &H4 000 ) 

1795 DMA$=DMA$+HEXCHR$ ( "FF 00 1C 28 80 8D FB 0F 92 CF 05 CF 87”) 



*7 ' 7 h M#"? it -•? "7 h T& 3 

2HD, 2DD © tV X X 0 <DTh 6 BASIC Ki57 

PL < fi turbo © USER’S MANUAL © 187 'Jhtz 0 
2HD T 1 X xXXfi 4KXT b ©£ St, Ztilt 1 b y y X (K - ®)©^ 
mT'fi&i^kV^ <1 tt^5o 2D©^kTD ^KI1/7X7# 

•tT£><5o 2DD, 2HD TB X X X X 128 iK±$> 5 *J, FAT F*3T« 80 H ~8F„ 
— XDftkfo 0 &^i~b<DT$>-o?zfr?>, L©!H§-©XXXXB£>o TBv>U&v><I 
kC4otV>5, * :? BASIC TifOJ:^ Krt^UTV^^tv^ k, 

0 ^«xxxx#5§-« 2 'nm h ©fi (16 iiiSrr 4 iff) 

2) fit, T 2^* < '80„~FF H .©SB^(±#^^m(i'T 

k4^tbS0t^5„ S-T5C, 2DD, 2HD ( 8 T F r -f X X b) Ttt FAT 

©fiB ( a — K #-§•) ^>f4 F7 1 'JCfiS^aa kV'Hms. 

? *? IZ *f =) 7 < *7 *7 1 3<*T& 3 

UX h 9-19 T&So I®7o/7Att'JX l 9-14 + D X l 9-16 Tf To/k, 1 -k X X 
1024 l-©7t-?7 1 ©tV X7^I*fflKltli 5 btDT&Z 0 IftftCfi 

k, 1 l7»/7 (frl) K8k7^*9, 1 '> U LX* (KSTtf- 2 b X y X) *5 16K /*-f 

H 9 ^ 7D.yf-fU7 225 



I ''ehZZ.tfrb, 3 i/') 48K/NM ^©^77^ 77f-7^ita^U5 

OTJbSo 7*4 7777-1271:1^^77^7 TV>£ 0 FDC Ol^BjOftlUOR/r'Cfe 
-7;uf-lr77&15 t FDC « TRECORD NOT FOUND] Z.t 

&T BUSY (D t &ThZ> 0 DMA <D[^> K*^7‘*7*d y ? T§!| D 

o £*UCJ: 9 FDC **!& 9 -t ? * (CCTe#Stftv>) ^SLtx? 
©%^-f^^tf £5 C47tv>5oSlOKi)S MEM$ti, FDC 07r-77 

rFDccxr-^x^^-i 

7 7tS4?) BASIC© INPMiSc^iEAtt'iv^J fc ® 9 ;/!? 5 3 **, 

V-^-aSBSSfrTVsSo *Afc, ^AOli^fw tH^KiSt, INP Ml&£{£ -5 t BASIC 

», 

J#¥CC G-RAM (sOfO, 1) fcO-oOJ iILTl^-5 

©*£ 0 ± o X CALL ^-CDft/tii U A«f§7°n ^ACiot FDC ©Xf-7X^f 

x >y ^ fe o 1 1 > ^©®53‘li1tJSWcS'3AL)UTtt^V^^e>, 

VitVi'fe®‘®ttJ5fVi©^*s 0 t, bfcfr < 



UXh 9-19 48K G-RAM □- F/t-^oy^A 



100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 



CLEAR &HEF00 

MEM$ (&HEF00 , 16 )=HEXCHR$ ( ”01 F8 0F ED 78 32 26 EF C9 F3 F5 C5 01 80 IF 3E" ) 

MEM$ ( &HEF10 , 16 ) =HEXCHR$ ( "AF ED 79 3E 8B ED 79 3E AB ED 79 3E 01 32 25 EF” ) 

MEM$ ( &HEF20 , 7 ) =HEXCHR$ ( "Cl FI FB ED 4D 00 00") 

INIT 
DN= 1 

DUMMY=INP ( &HFFE ) 

MEM$ (&HF814 , 2 ) =MKI$ ( &HEF09 ) 



: ' 2HD (1.6) MODE 
: ’OLD VALUE=&H8 1C3 



GOSUB" RESTORE" :OLDTR=0 
FOR TTR=0 TO 72 STEP 3 
CLS4 

SYMBOL (32,0) , STR$ ( TTR ) ,20, 10,7,0,PSET 
GOSUB"WRITE" 

NEXT 

GOSUB " RESTORE " :OLDTR=0 
FOR TTR=0 TO 72 STEP 3 
CLS4 

GOSUB "READ" 

NEXT 

I 

OUT &HFFC , &H3 AND DN 

DUMMY=INP ( &HFFF ) : ' 2D, 2DD(0 . 5M, 1M) MODE 
MEM$ ( &HF814 , 2 ) =MKI$ ( &H81C3 ) 

END 

LABEL"READ" 

CCC=&H90 

DD1$=HEXCHR$ ( "83 7D FB 0F FF IF 2C 18 9D" ) 
DD2$=HEXCHR$( "32 10 92 A0 CF 8B 87") 

GOSUB "EXEC" 

RETURN 



LABEL"WRITE" 

CCC=&HB0 

DD1$=HEXCHR$( "83 79") 
DD2$=HEXCHR$ ( "FF IF 1C 28 9D FB 
GOSUB "EXEC" 

RETURN 



32 10 92 CF 05 



CF 87") 



LABEL"EXEC" 

GAD=&H4000 
FOR TR=TTR TO TTR+2 
GOSUB" SEEK" :OLDTR=TR 



226 KRCttJ&Xl 



550 FOR SIDE=0 TO 1 

560 DMA$=DD1 $+MKI$ ( GAD ) +DD2$ 

570 GOSUB " SETDMA " 

580 OUT &HFFC , &H80 OR DN OR &H10*SIDE : GOSUB "WNBSY" I’MOTOR ON 

590 OUT &HFFA , 1 SECTOR # 

600 POKE &HEF25 , 0 CLEAR FLAG 

610 OUT &HFF8 , CCC ;» COMMAND 

620 CALL &HEF00 

630 IF ( PEEK ( &HEF26 ) AND 1)=0 THEN 660 

640 IF PEEK ( &HEF25 ) THEN 660 

650 GOTO 620 

660 PRINT PEEK ( &HEF25 ) , PEEK ( &HEF26 ) , INP ( &HFF8 ) 

670 OUT &HFF8 , &HD0 

680 GAD=GAD+&H2000 

690 NEXT 
700 NEXT 

710 DMA$=HEXCHR$ ( "C3 C3 C3 C3 C3 C3 83 80" ) : GOSUB"SETDMA" 

720 RETURN 
730 ' 

740 LABEL"WNBSY" 

750 CT= 0 

760 IF CT> 1000 THEN OUT &HFFC , &H2 : PRINT"DISK? " : STOP 
770 IF INP ( &HFF8 ) AND &H81 THEN CT=CT+l:GOTO 760 
780 RETURN 
790 ' 

800 LABEL "SETDMA" 

810 FORI = 1TOLEN ( DMA$ ) : OUT &H1F80 , ASC ( MID$ ( DMAS ,1,1)): NEXT 
820 RETURN 
830 * 

840 LABEL"SEEK" 

850 OUT &HFFB.TR : * r - * l / $ 7, V 

860 OUT &HFF9 , OLDTR 

870 OUT &HFF8 , &H10 : * ? a v > K 

880 GOSUB" WNBSY" 

890 RETURN 
900 ’ 

910 LABEL "RESTORE" 

920 OUT &HFFC , &.H80 OR DN : GOSUB "WNBSY" MOTOR ON 
930 OUT &HFF8 , &H0 : GOSUB "WNBSY" HOME 
940 RETURN 



ZtlTV Z h 9-19 Z ttiti*, 370 "READ" t "WRITE" 

?$>Zo TTR (Top Track) frbl&t 4 3 '> !) t 48K/< 

'f k © G-RAM 5 „ 7°n 'fyA±i^Xbi, MW hi SYM 

BOL^MoT G-RAM K TTR 

frhzbi, ZtUimrZitX&tlli— 

■5o ^iTllO~13OtTOMEM$~ej:5|*fc*|g? , n^9A**f#K:BM0L'rj8< o 7-t? 
yy/UVZHt, UZh 9-20 T$6 o EF00 H ~EF08 H nmhZ FDC <DXr~? X&mfr&L 

X EF26 H gi&hzfaMl,X^Zt:liX$>6 0 EF09 H ~T, iiittriyF**/* 

7'uy7j &© DMA ©?|#JJ8Hb i: \7y?'tLX\ (EF25„#±fe) &ff%^X^Z 0 Z<D 7 
jy-ifitL-oltltb, DMAtfSK 'U Y Qm&tZ&tLtzfrmifrh, FDC ©£U»*9 -t 
7 7}$LZ7 yfyXhXfTZW^X^ZfohfT&Zo 



<1 * h 9-20 r IJ X t 9-19jO>m#&8t& 











. Z80 














.PHASE 


0EF00H 




0FF8 






FDC 


EQU 


0FF8H ; FDC 


CMD AND STAT 


1F80 






DMA 


EQU 


1F80H ; DMA 


I/O ADDR. 


EF00 


01 


0FF8 


START : 


LD 


BC , FDC 




EF03 


ED 


78 




IN 


A, (C) 




EF05 


32 


EF26 




LD 


(STAT) , A 
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EF08 


C9 




RET 




EF09 


F3 


DMAINT : 


DI 




EF0A 


F5 




PUSH 


AF 


EF0B 


C5 




PUSH 


BC 


EF0C 


01 1F80 




LD 


BC , DMA 


EF0F 


3E AF 




LD 


A , 0AFH ; WR6 : DISABLE INT. 


EF1 1 


ED 79 




OUT 


(C) , A 


EF1 3 


3E 8B 




LD 


A , 08BH ; WR6 : REINIT . STAT 


EF1 5 


ED 79 




OUT 


(C) , A 


EF17 


3E AB 




LD 


A , 0ABH ;WR6: ENABLE INT. 


EF19 


ED 79 




OUT 


(C) , A 


EF1B 


3E 01 




LD 


A, 1 


EF1D 


32 EF25 




LD 


(INTF) , A ; SET FLAG 


EF20 


Cl 




POP 


BC 


EF21 


FI 




POP 


AF 


EF22 


FB 




El 




EF23 


ED 4D 




RETI 




EF25 




INTF : 


DS 


1 


EF26 




STAT: 


DS 


1 






* 


END 





JiLb&s DMA Tr A X? 8 'f 

i£ if i4otU^f;i'*, $ o £ fcfc©*Kfro T U £ 5 '4)T* o fc„ 



22S KitctBSXl 




PSGB**-C3d3 




* 10 * 



ZCDmXht PSG PSG h © (i. Programmable Sound Genera- 
tor, + %CDT$>6o 

PJ {3 L £ t <0X o 

XIX PSG tt AY-3-8910 tb>5, fc 5 **t B^T fc «kv» LSI TfcSofc 
fit turboZ & t'Tli, S ft t n YAMAHA © YM2149 btiitotlX^Z (.%%&■ 

tiZ YM2149 {± TSSGJ fcDffcfftT^So t© S tfrb IS C AY-3-8910 £ SSG fcD ?A,fi 9 
b 'bSlo 

T% d©5*ffi#G*S^1-S t, 

1 ) WMPSfftt S T 3 *f OWtftt A S o 

2) y-i x (art) £H;tSo 

3) iy^n-XhnffcmsSitgCJ: 9, JgjStfcWJW, (8^°^-» T'e^t^ 

^fb£-frS :ktftg5, 

4) 2 tf— b© 8 t*y b'*X Wl/tf— bfrH£AS 0 Xl tliCHS'iatXrt yfCf 
^Tb5 0 

& t't&So 

AY-3-8910 S 4)©g|g£$! D*^Tt°>|^^?ittf:b©li®S* 5 AY -3-8913 t 
nftfft, MZ-5500/6500 XHHfotlXb'&o FM-7 Tit 8910, 8913 tt^ 5 S y Xh 
S 0 t*o t> C LX b, FM-7 X\t^y Wl /tf- b Xft y ^ £->fzK— b tf 

i^&V^SIrIG S tT&S 0 

AY-3-8910 (D^^lim^-X, 16{@£>S us?*.? 0 ©T-X £* 

g&AsX^ytzD, t>L < 1 #© CRTC 

tfKTtSo S S T*-¥H PSG ©l/yx X *^35 10-1 T&So 

*MWCffoT*<**, Rot Ri, R 2 1 R 3 , R 4 1 R 5 (imcm-fcri2 tfy b ©fiM^T r 8 
tfy b t±4 t*y bC^ttfcJ tMS^tT$>So £ tUi Rn h R )2 X h H t X, S^S© 
■ft It 16 tty b©fit£±T8 t*y b •focfrfrf: |> © t £-&f S 1 *bC§ S 0 S ©;&£&* 
too, Jlficfifift-f So 
® Ro, Ri (f'-rySJt A b-OJli&ifc) 

R,£±4 tty b, Ro£T8 tf y b t tTfFS 12 t*y b ©StSt^ A, ttS 0 A, li 0 
~4095 T k £>S o 'f&to't, 

A t = R 0 + Ri x 256 it 1 

t © A f fcf-*>*;PA*>e>fflSW©JS&8fe©KH5Mi, ^©ffliSISt^ fa(Hz) fc-fSt, 

f _ 2X10 6 _ 125000 _k , 

Ia_ 16xA, A f 
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* io-i psGu-> 7 .?m 



# * 


i/y^« si 


£ "j h 1 ® 


r - fi 


D? 


De 


Ds 


D4 


d 3 


D2 


Di 


Do 


Ro 


>4WU A 


T14 8 £-y h 


0-255 


Ri 





-L1&4 t'-y h 


0-15 


R2 


^ ^ Jls B JU ;j£ 


Tit 8 t'v h 


0-255 


r 3 





_htt4 t'-y h 


0~ 15 


R4 




Tli 8 £-y h 


0- 255 


Rs 




_b&4£-y h 


0-15 


Re 


/-rxjgifttt 




5 fcf'y h 


0-31 


R? 


5 1 >■?' JUiliiR 


IN/OUT 




1 — > 


0-255 

( Do — Ds IJ, 0£KStS!:l)R?ft5) 


IOB 


IOA 


c 


B 


A 


C 


B 


A 


Rs 


A Efil 




M 


4 £*y h 


0-16 


R9 


b^s 




M 


4 fci'y h 


0-16 


Rio 


^ + >4wuc®* 




M 


4 tf »y h 


0-16 


R11 




"Hi 8 kf*y h 


0-255 


R 12 


-hfi 8 t'-y h 


0 - 255 


Rl3 






4 kf*y h 


0~ 15 


Rl4 


JOY 1 (IOA) 


8 fcf'y h 


0-255 


Rl5 


JOY 2 (IOB) 


8 \Z*j h 


0 - 255 



Tl'5, it 2 T” T2X 10 6 J k T16J k ^ d * *3 ftT < S**, 2X10 6 t^ 

5 (DiZ, LSlKttl&SifC^i^ny^OfflSft (2MHz) T$><5 0 

u0SS-Oilitbot<5«, M U#) 10 6 = 1000000 ©#fi 

*©**, &<Dtz)sbo «KWT < 5 16 tt, AY-3-8910 *RttUfcAa*j#¥Cft»;fc»ffi 
T&3 (tsa) o *33, it2J:D Af A* 

m 5 - 1 **#*> * o nr a kiwj*© / io 

5ti, 2ia rjssftf (Hz) i; av^ai&fi^ Ro, RiC*s& 

©HTJ:V»*»J SrtWTgSo 

s-r, it 2*^, 

A 125000 

Af_ fa 

tffrti'Z o fcffLA, £-fv>©-C, /J'tSc^l®t k EJtaA'rs©*J«J:v» 

**5a 0 *3»i, 

At=INT( 12 ^ — +0.5) 

k*S„ »CKA,*>€>Ro, iftttWMlK:, 

Ro=A f mod 256 

R '- iNT (it) 
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H>TtzLH>TtzL o R„, 

ffi*-T4J:5Co *&, A,* OKU fc«^, 5£ 

©±Tttffl»»***[||S*©W**a-5 CkCftS, S*K#T»ii!S*&*A,*£ fctt*9»*V» 
©T, A f =0 ©*£«#*. S&gtt*l^ 0 *fc, #*SrS<-f SfcftCfc^lillT 
(i, &£ 0$#) ©Wte^BStt*^©**#®#*^, **>•?■& xt?-*- 

£T£T, WO*SCoV»T*^TSfc©T2bS**, TK^UTV»TfcJ& 

£S>*V><, *£T*10-2i* t x.-t^.-h, T 1939 

Th% 0 ma rsi^su cm 

oTV'fcfc©T^5. 



St 10-2 = ai = 440Hz (;*-?' < +n^K)'#^Pi (jjiftttHz) 





C 2 


C, 


C 


c 


c 1 


c 2 


c 3 


c 4 


c 5 


c 


16.352 


32.703 


65.406 


130.81 


261.63 


523.25 


1046.5 


2093.0 


4186.0 


c # 


17.324 


34.648 


69.296 


138.59 


277.18 


554.37 


1108.7 


2217.5 


4434.9 


D 


18.354 


36.708 


73.416 


146.83 


293.66 


587.33 


1174.7 


2349.3 


4698.6 


D # 


19.445 


38.891 


77.782 


155.56 


311.13 


622.25 


1244.5 


2489.0 


4978.0 


E 


20.602 


41.203 


82.407 


164.81 


329.63 


659.26 


1318.5 


2637.0 


5274.0 


F 


21.827 


43.654 


87.307 


174.61 


349.23 


698.46 


1396.9 


2793.8 


5587.7 


F # 


23.125 


46.249 


92.499 


185.00 


369.99 


739.99 


1480.0 


2960.0 


5919.9 


G 


24.500 


48.999 


97.999 


196.00 


392.00 


783.99 


1568.0 


3136.0 


6271.9 


G # 


25.957 


51.913 


103.83 


207.65 


415.30 


830.61 


1661.2 


3322.4 


6644.9 


A 


27.500 


55.000 


110.00 


220.00 


1 440.00| 


880.00 


1760.0 


3520.0 


7040.0 


A # 


29.135 


58.270 


116.54 


233.08 


466.16 


932.33 


1864.7 


3729.3 


7458.6 


B 


30.868 


61.735 


123.47 


246.94 


493.88 


987.77 


1975.5 


3951.1 


7902.1 



(l979**JKJIfW^tJ: 0) 



£©*Cli§H&fc£I!Hfe&**.S 0 £ *IA* a* = 4 fc «? 

IftlZ^T, f5fAS*ATfe £ dtt 440Hz *©T£>£ 0 Z. tlhi y © S 0 XI T'fc B1 - © 

* 6, 

PLAY "04A" 

T'fcb-C<ao LT, (#A) ©)!&&«, 440 VZ a /Z=2a = 

1.05946 (2© 12**1) fcS'frfcfe©, ffiK^WTfcffcW (#G) fi 440 £ ,! /It|J 

itzbfDThZ, o R i;«t^C“/r-C»»fc5iIofc9f Sk, ^©fclfC^WiAJofct) 
T**ofc9-T5o l*X?-:m¥#AU 2 {i: 8 ^A^, U?^-/±cfli, 
fl»»A*2fi&K:*S ( 12 /2~© 12 Site: 2 *©72) 0 lClt?^-/T ©Wtt, JS&fttft 
J: -5 if 2 #© 1 T*S 0 S? 10-2 tSTlW»tt^fctf8fcV>. *13, *Hf £©J; -5 C&& 
^tiT^^OA^SStc® -5 Afc 72 *> 3 A*, ^*U£AP^©K;1 ;>'XtAAS-?- - 5 *oT 
V>6A>£*©T£>-S 0 ^lxj^±©i tT«*^o 

Ttt , AY-3-8910 if 33 9 © JSIJftttO W * tti -f C tt if ^ 1-n If J: V 1: V ^ IWa 

C»5o g C tf-g L T fc <fc V > © 72 A*. % f± turbo BASIC © MUSIC 

A£>5„ MUSIC ap^tzt, MUSIC @^ 

232 amicai^xi 



*f^e. j e©fcscpsG©R 0 t 
**, MUSIC0#^ttv»o ; t*Jl:»S©*‘fcv»'5 t, 

■?W9&**ffio'tV»S©T2bSo Bt^*tUf±toT<n-&0 

St10-3*SR o fc R>0*i*n:l/tetct*s, 16 3i^T, TR 0 + RJ 
-So H^TCHA/Cfc-S t^S.*5 440 HzC^f)*-rSfiffr*So ^UdEfltC 

440 Hz fcc-fr R 0 , R,ttSESfcK:fiB?»n-5©T*So SfUifS^OW 

Pa fc -rfcWAS S ht, ^Cj^WC&S&fc'f'tUiAiS < &S 0 £&, i)<Dtit 

JS5 ti»*v»©T*S 0 &*, l^^^-^±fcfS=fflSE»*2fg-r-5=A,*^K:'t 

s, TJbsdfccasEo 



* 10-3 &*pgi::**TS u:y*?tf>{i( r Roj + r Rij0>JK5t) 





C 


#C 


D 


#D 


E 


F 


#F 


G 


#G 


A 


# A 


B 


01 


EF+0E 


17 + 0E 


4D + 0D 


8E+0C 


DA + 0B 


2F+0B 


8F + 0A 


F7 + 09 


68 + 09 


El + 08 


62 + 08 


E9 + 07 


02 


77 + 07 


0B + 07 


A6 + 06 


47 + 06 


ED + 05 


97 + 05 


47 + 05 


FB + 04 


B4+04 


70 + 04 


31 + 04 


F4 + 03 


03 


BB + 03 


85 + 03 


53 + 03 


23 + 03 


F6 + 02 


CB + 02 


A3 + 02 


7D + 02 


5A + 02 


38 + 02 


18 + 02 


FA + 01 


04 


DD + 01 


C2 + 01 


A9 + 01 


91 + 01 


7B+01 


65 + 01 


51+01 


3E + 01 


2D + 01 


IlC+Ol! 


0C + 01 


FD+00 


05 


EE + 00 


El +00 


D4 + 00 


C8 + 00 


BD+00 


B2 + 00 


A8 + 00 


9F+00 


96 + 00 


8E+00 


86 + 00 


7E+00 


06 


77 + 00 


70 + 00 


6A + 00 


64 + 00 


5E + 00 


59 + 00 


54 + 00 


4F + 00 


4B + 00 


47 + 00 


43 + 00 


3F+00 


07 


3B+00 


38 + 00 


35 + 00 


32 + 00 


2F+00 


2C + 00 


2A+00 


27 + 00 


25 + 00 


23 + 00 


21 + 00 


1F+00 


08 


1D+00 


1C+00 


1A + 00 


19 + 00 


17 + 00 


16 + 00 


15 + 00 


13 + 00 


12 + 00 


11 + 00 


10 + 00 


0F+00 



(D R 2i Ra (? 1 +>'*ll'B |—VJSi£&) 

(D r 4 , r 5 (5^>*ipc 

<2>, (Dttf- + >*;!/ A **B, CCfcofcfcfrT, SWliio/c< [hIBT&So 

(D R 6 (y-fXJBatt) 

AY-3-8910 K Lfc J: $ K >M X * ttJ-fliltg*** * » t v» o X % SBC X 4 X*P1© 

? + >Z/UiS&S£>ftTH%:<, f-*y*n'A~C(D5*>frt>gi]9%?6<DT$>6o S!ID 

Re&S-OX -f XOjf fc ©-CSj-So /i* s , 7 -fXhv^® 

«, — 3e©S©JSS*SflB : ©W*^A'ri»a#©ii;^6., A#©I@B£&&S fc^-5 - 

tT^So mfrwca, rx-j 

&S 0 Retx-f XOiSStt, »a?tiJt«©li(^5o 019, R«©ffi[*»/J'SV»H 

hV4 x©wa* < 

(D R 7 (5 +-9— , I/O h P-1P) 

9 fc#*.4©#¥o&9#V»o S-f, Do~D s 
A, B, ©*>©*§)£-?&£<, f-*:-'*;i'A£fg}£fS©«D,fc D 0 T& 

So HI 10-1 C D 3 1 D 0 COM (1/0) fcf- + >4>/l'A^e>©a*©Mfl5*^1-o 
0 io-i nmw?- -or kfflcz fc**w*.s„ i a off, otONtti 
wcrnwucfto-rvi* uhca*o 

D 6 ,D 7 (ino^s I/O tf- h ^©fi^T^So 

fc fcSU*c$f£fS£fc**T£So otA/;cffiS, l-rai^cfgjgr^So xi-raas 

mot tt)C0T45o &*J, 
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El 10-1 

(*• + Acnrn - k ) 



d 3 


Do 


-V >%')\/ A 


0 


0 


y x + h — > 


0 


1 


/< x 


1 


0 


b — > 


1 


1 


fcL 



<D*Ja'(XT't v?*°~\ '®T-?(D%VmUZ R 14 , RuSttao 
(D Rs. Ro, Rio IV^P-/liS) 

R 8 , R 9 , R lo 0fil?nT4 t*>y Y(D'D^D 0 \t^t.^^th o 4 tfy h h 0 (* 
/W~i5(**) *T©i6i8!»T2bao fc«bD 4 **i*e>tf, 

-^e-FCft9, D 3 ~Do©ffl(itt^$nSo £©•£©**«, Rn, R,„ R„©IS5£-r 
i ^ y ^. u - 7 ‘ Mmt , x >~* u -: A <*-> K £ S !;&; K , S 0 

<D Rn, R 12 

itUi , 5 xy^n — — i )( DTh & 0 x>"< n 

— l / fcv ^©}*, H 1 10-2 tz $> Z >£ 5 C 8 l 0 A 7 - y^§ o x y^n — 

t e ©;R££f fc&JtHf i i^o 

A e = Ri i + R12 x 256 

tt5 t, 

. 256 x Ae 

e_ 2X10 6 

Tgt®t#?»o 

xy ^ D - 7 ti ^ 0 tt § i ^ glKCfiSfe 0 T , tzhlUi r 

T, PSGtm^^-oX <tiZ>m.mT&Z, 0 010 

-2©xy^n-7V**-y*^fttf##>S iiC, tt7y ?/??>*&* tBV'Mt 
^ 7 -> W 5 . 



El 10-2 




2 J 4 SWfclCttl* XI 



(D R13 

H 10-2 CgtxMn-W-yoH, fcOT&So 

->b, h«&gfc©R ls ©ffiCMJ®LTV>Sa* *, TRuCtt 8—15 ©flff b© 

/ij J: ^<Dt£o 

(D Ru, Ris (I/O ^K— h AtiJ*) 

ifCfe*V>*,fc'5C, XI Tlt'J 3 'i 't y V <DAtiitJte‘®.fc>hX^2>o R u ** 

^a^fXfl'^l, Ris^'^ H-fXf'f'^2 T&So 0 10-3 #H 0 



El 10-3 •> 3 -f 77 •( 7 ?5)7-?©i#(Ru, R 15 ) 




® PSG ^©T^-trXiiT^So 

t'f, -3S9, 

OUT &H1C00, W'S?**## (0-15) 

©»C, 

OUT &H1B00, 7 ~? 

T, r-^=&®§3Afee 0 
— =INP (&H1B00) 
fc&So 

J')l±TS^$i©tBHJ £$££*£> -etT, ^ ^-C1by7°;U7°n^7 A^iJj-T 

SOtffo 



U x h 10-1 : FiV 

*10-2 £^;U£— B, C F 5 V £|Rl 

1ST, R 7 THo t b b~><DfrZm%.o fe 15 CLT*L*v»T* 

So 



0 *1-10-1 K 5 V 



100 MUSIC "R0 " 

110 SOUND 0.&HDD 
120 SOUND 1 ,&H1 : ’ 1* 
130 SOUND 2.&H7B 
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140 SOUND 3 , &H 1 : ' 5 
150 SOUND 4 , &H3E 
160 SOUND 5 , &H1 : ’ V 
170 SOUND 7 , &B 111000 
180 SOUND 8,15 
190 SOUND 9,15 
200 SOUND 10, 15 



£T, <r<£>7°n^'7 o t 5 bv>fcJB’5frW'T*S 0 ZZ'V'Jxh 10-2 

£0 SI", > vv QUIEni PSG "XSOUND" tt PSG 

tt, "XSOUND" ftiCIi, ff DATA££f8 

Mt&o 

1 ) tiTS 0 fcfc;U*riJfce>tf Ri^6Rje*j6»S 

d k & S 0 

2) l 0—255 £T% &H— , &B— & k* fc <£ l\> 

3) « 3 ibfc< rsj ttz 0 R 4 tR 6 Kv*o 

R 5 £*©££K:bTi3§fc»:mfcf, 

DATA 4, 0, S, 0, 

k Ttil£ J: v> 0 

4) DATA JC<D%tfklt TEODJ (End Of Data) tt6 a 

5) GOSUB "XSOUND" ©BfflK:, 

RESTORE fc b < 

£^fTbTio < e 

T&k^T'&^o fcohfe, turbo 

£ ifijm "XSOUND" KffiStSilk^tOSS SOUN D X TUtT'T 8 S 
6, tfohbtv^am^o yxh 

MXb 10-2 PSGfflU'^U—T-y 

100 GOSUB "QUIET" 

110 RESTORE 120: GOSUB "XSOUND" 

120 DATA 0 , &HDD , &H0 1 , &H7B , &H0 1 , &H3E , &H0 1 , S , &B 111000, 15, 15, 15, EOD 
130 PAUSE 10 
140 GOSUB "QUIET" 

150 END 
160 ’ 

1000 LABEL"QUIET" 

1010 SOUND 8,0: SOUND 9 , 0 : SOUND 10,0 
1020 RETURN 
1030 ’ 

1040 LABEL "XSOUND" 

1050 READ C 

1060 READ A$ : IF A$ = "EOD "THEN RETURN 
1070 IF A$="S" THEN GOTO1090 
1080 SOUND C , VAL ( A$ ) 

1090 C=C+1 :GOTO1060 
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R 12 = 20 tifr 



')7 h 10-3 \mp 

_ 256 x (20x256 + 0) ^_ A 
t e — 2xi0 6 — U.bb^j 

tft&o OSD, *«0ttd?y O.66^0[fflfc 0 3f- 

+ y*;l"fc fe/-f X^-FetTa&SolSOfrSrMTfc^S £3 fc, + 

*UHSo ^MttfcftSto^-CiSo 



V X h 10-3 



100 GOSUB" QUIET" 

110 RESTORE 120: GOSUB " XSOUND " 

120 DATA 6,20, &B000 111,16,16,16,0,20,9 , EOD 
130 IF INKEY $ ( 0 ) = " " THEN 130 ELSE 110 
140 END 
150 * 

1000 LABEL"QUIET" 

1010 SOUND 8,0: SOUND 9 , 0 : SOUND 10,0 
1020 RETURN 
1030 1 

1040 LABEL "XSOUND" 

1050 READ C 

1060 READ A$ : IF A$="EOD"THEN RETURN 
1070 IF A$="S" THEN GOTO1090 
1080 SOUND C , VAL ( A$ ) 

1090 C=C+1 :GOTO1060 



10-4 : UFO 

xMn-W-WigT, 

T&Zo 



Ij 7s h 10-4 UFO 



100 GOSUB "QUIET" 

110 RESTORE 120 : GOSUB"XSOUND" 

120 DATA 0, 100,0, 102,0, 200, 0,S, &B1 11000,16,16,16,10,5,14, EOD 
130 PAUSE 50 
140 GOSUB"QUIET" 

150 END 
160 1 

1000 LABEL"QUIET" 

1010 SOUND 8,0: SOUND 9 , 0 : SOUND 10,0 
1020 RETURN 
1030 9 

1040 LABEL "XSOUND" 

1050 READ C 

1060 READ A$ : IF A$= "EOD"THEN RETURN 
1070 IF A$="S" THEN GOTO1090 
1080 SOUND C , VAL ( A$ ) 

1090 C=C+1 : GOTOl 060 



■J 7s h 10-5 : SL 07°^- 

run -tz t, mm sLv^zmto 

ft, j e(DOfcD^^otF<< h, *’3H£*.4fc0* 
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c DT&& 



'J^hlO-5 



100 


GOSUB"QUIET" 




110 


RESTORE 120: GOSUB "XSOUND" 




120 


DATA 6,10, &B 110111,16,0,0,0,6,12] 


, EOD 


130 


PAUSE 50 




140 


RESTORE 150: GOSUB "XSOUND" 




150 


DATA 0, 0, 5, 0, 0,0,0, 5, &B 100110, 16, 


,16,0,0,1, 10, EOD 


160 


PAUSE 50 




170 


GOSUB"QUIET" 




180 


END 




190 

1000 


» 

LABEL"QUIET" 




1010 


SOUND 8,0: SOUND 9 , 0 : SOUND 10,0 




1020 

1030 


RETURN 

i 




1040 


LABEL "XSOUND" 




1050 


READ C 




1060 


READ A$ : IF A$= "EOD"THEN RETURN 




1070 


IF A$="S" THEN GOTO 1 090 




1080 


SOUND C , VAL ( A$ ) 




1090 


C=C+1 : GOTOl 060 





V X \ 10-6 : 

Ztlte i U* b 10-7 0^-5^, 7>/A^xy^n-7° 

R#W*M££0 PAUSE *6* 140frfc*S**. SJfcx 
b-f S«kMffi*Stetrctt«:v ^ 0 fifibTfc^-ffc'ffcCftS 
M^TX^(Dti 0 



U X h 10-6 



100 GOSUB "QUIET" 

110 RESTORE 120: GOSUB"XSOUND" 

120 DATA 6, 25, &B 110111, 16, 0,0, 0,99, 14, EOD 
130 END 
140 ’ 

1000 LABEL"QUIET" 

1010 SOUND 8,0: SOUND 9 , 0 : SOUND 10,0 
1020 RETURN 
1030 * 

1040 LABEL "XSOUND" 

1050 READ C 

1060 READ A$ : IF A$="EOD"THEN. RETURN 
1070 IF A$= "S" THEN GOTO1090 
1080 SOUND C , VAL ( A$ ) 

1090 C=C+1 :GOTO1060 



U* h 10-7 

100 GOSUB "QUIET" 

110 RESTORE 120: GOSUB "XSOUND" 

120 DATA 6,25,&B110111, 16,0,0,0,99, 14, EOD 
130 T=40+INT ( RND ( 1 ) *60 ) : PR I NTT 
140 SOUND 1 2, T: PAUSE T:GOTO130 
150 » 

1000 LABEL"QUIET" 

1010 SOUND 8,0: SOUND 9 , 0 : SOUND 10,0 
1020 RETURN 
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1030 ’ 

1040 LABEL "XSOUND" 

1050 READ C 

1060 READ A$ : IF A$= "EOD"THEN RETURN 
1070 IF A$=" S" THEN GOTO1090 
1080 SOUND C , VAL ( A$ ) 

1090 C=C+1 : GOTO1060 



S 0 R ll (x^D-/^-y)EiH?bLfck*frei40i‘? tftkfc, R 8 ~R l0 
©D 5 £ 1 C-fey b cltT^So ttebh, x>^n — 7°§ 

(§l&) 

g*.fci R 13 -C*So 

**WSo ^CMLtRn, R 12 oxy^n-7’fi|»!tt#*S*^>^©JS|»3< > e > v»© 
SflcL**^ a^'JX b 10-7 0?y/AftS0f|j:, **t&L<M;:*.;fc©T2bSo 
k£3TPSGtt*&*>0TfcS o ftifittFMWS^fiDTJbS^, PSG 

A, t; W 2 ^.Ti5ViT#:bVi©TS)of«:o 
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FM^;JiU-AhAi>-'7 





■Mil* 



<L©^7& L&ftbfSWte MMLt$i5 0 

7, MML 7£> -5 *i, turbo T(i NEW turbo BASIC C <t D C FM #1®^^ b * S J: 

d C*ofc 0 bb>b XI T*fcfrt\ b CT-9 -jK- htSb^Tt 

So 5**EOh!MZ©^R$Cttfcfc£%C^**Ao;fc9b;fc**, Stx<? £7^Tit 
LTS&Sltt-fT^SIo 

$T, XI© FM#3gstf-F CZ-8BS1 *©-C&S*b ;©#-F©M(i 

YM2151, Site OPM tofti'FtS LSI &©^&S 0 **tfcMbTffe©:fcfE©2<y 3 >^i£fo 
#lTt*S FM fi© LSI 1$ YM2203 (OPN) &©T£>S 0 b ©Pi#©i*WJ k t, 

• OPM f± FMWiH^ 8ft >^v!foTij D, ^tl^ix©?- +> y*;p£ t C££ (tb 

<«M^) *fcLFO«*Bi*^T^So 

• OPN FM Wif§£ 3 7* >*sut, SSGW«*3f-*y*;P (AY-3-8910 t H b® 

te)}f^Tv>So 7^©*. LFO^#g(±f^^Tv^v^©T^^ 

l>V 7 b ^iTta 7 b D-;t--rS£'5b s abSo 

ttO :tC45 0 Si-SCOPNO^KttlffiOOFMW***, 

3 

ftfv>TV>&v»©T2bSo tilCJtbTOPMCtt, 

8 **>*;Ufc 

tt^T^SOTfcS. bb^tbO t, Pl^Cjjtil-p* **»©»** 3 » 

8&©-c&s„ ^b-rcnttft^itowactifsft-f, w©JP*c*^ii-s0TJbs. 

~C, OPM t OPN ©f^©^ (r — 7) ©SSIteTfcS**, S#ftCW#1E«2&tt**£> 
So fc^bx^D-/o^/f 5 y7*&t*abilVN — SBcSMtTt&i^iofcJbS&b 
v^o fc b> o T fc VIP CfsfJR© 200 fe £•*>•£ J: 5 C, OPN *> © 

£©FM i tSiK-K'C2bSs&*, I/07KWX^ff,btflfttfeXD>ybK 
§ * S J: a C bfc 6 * ©IS** o fc t So fc©T* S bb 3S&*** 6 * 3 tt * o T V» 

-JT'^So 

fcbO t SST, OPM ©lW^Ui B lCA?i©tiot;o 

OPMT&3 

011-1 *s OPM ©I/O 7 KvXTibS, t 7 sKOftlfflUBC Z80 CTC *»fif V'T v» S 
*b turbo « J: 1/ turboZ T»J^ 7 *§-&«: £ ©*- F±© CTC -C«& < , ^F*3ii© CTC 
(7 K^XIi lFA0 H ~lFA3 H )£f£5 ;tC4otP5 0 ftfcttfrS «fc-C 0 

2</2 Xl 



$T, OPM tc: t£ 256 (-a) «©V' 5 ?X*j&**S:bl*;E 0 ZLX, Z.ftb<DV*j7,9 \Z 
*fltS:'0(D\$.*^%2itsZ. tK iot, $ £tiH±2> OT* S 0 £©j5tiPSG 

(AY- 3 - 8910 ) fc«fcJ:-*fe©-r*So * t ti/ S^X ? Cfit£ Atl 3 ^&’T&-£ **, fc 
*. (f 21 h # ^ $>X ? K C 3 H £ A tl 5 © T&tltf, 

OUT &H 700 , &H 21 
OUT &H 701 , &HC 3 
ttZ<DT$>Z 0 Sofc<©gifttSi5o 



0 11-1 OPM ©I/07K1-X 



0700h 


YM2151 T FU7,f - h 


OUT 


070 1h 


YM2151 T-?tf- h 


IN/OUT 



0704m 


CTC ^ J r > %' J\s 0 


IN/OUT 


0705h 


CTC ^ )\s 1 


IN/OUT 


0706h 


CTC -^*>*11/2 


IN/OUT 


0707h 


CTC J- -\» > -T- JL 3 


IN/OUT 



12111-2, i©T'y7°a*^C00 H #~lF H #(3t 

4 j T^TSUTV^^') t , 20„~FF„©-OO^C^^TV^bU/i o 7FPX© 

A o t <-> f ©x> fc D To 

**it\ 011-3*^5 iiK, 0P2 t 0P3T^S?X^#^**a»teUTV» 



0 11-2 Ui*.*? v -y y(00n~lFii) 



U v * ? #-§■ 


D 7 De D 5 D t D 3 D 2 Di Do 


Oln 


TEST 


LFO 

RESET 




08h 






CH No. 


0P4 


OP3 


OP2 


OP1 


OFh 


NE 




NFREQ 


10m 


CLK Ai 


llH 





CLK A 2 


12h 


CLK B 


14m 


CMS 




FRESET 


IRQ EN 


LOAD 


B 


A 


B 


A 


B 


A 


18m 


LFRQ 


19m 


F 


PMD or AMD 


IBm 


ct 2 


CTi 




W 
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m 11-3 "j 7 p (20h~FFh) 



0P1 

OP2 

OP3 

0P4 



OP1 

OP2 

OP3 

0P4 



OP1 

OP2 

OP3 

0P4 



OP1 

OP2 

OP3 

0P4 



OP1 

OP2 

OP3 

0P4 



OP1 

OP2 

OP3 

0P4 



CHO CHI CH2 CH3 CH4 CH5 CH6 CH7 



D 7 D6 Ds D 4 D 3 D 2 Di Do 



20h 21h 22h 23h 24h 25h 26h 27h 



FEED BACK 



ALG 



28h 29h 2Ah 2Bh 2Ch 2Dh 2Eh 2Fh 



KEY CODE 



30h 31h 32h 33h 34h 35h 36h 37h 



KEY FRACTION 



38h 39h 3Ah 3Bh 3Ch 3Dh 3Eh 3Fh 



PMS 



AMS 



40h 41h 42h 43h 44h 45h 46h 47h 
50h 51h 52h 53h 54h 55h 56h 57h 
48h 49h 4Ah 4Bh 4Ch 4Dh 4Eh 4Fh 
58h 59h 5Ah 5Bh 5Ch 5Dh 5Eh 5Fh 



DTI 



MUL 



60h 61h 62h 63h 64h 65h 66h 67h 
70h 71h 72h 73h 74h 75h 76h 77h 
68h 69h 6Ah 6Bh 6Ch 6Dh 6Eh 6Fh 
78h 79h 7Ah 7Bh 7Ch 7Dh 7Eh 7Fh 



TL 



80h 81h 82h 83h 84h 85h 86h 87h 
90h 91h 92h 93h 94h 95h 96h 97h 
88h 89h 8Ah 8Bh 8Ch 8Dh 8Eh 8Fh 
98h 99h 9Ah 9Bh 9Ch 9Dh 9Eh 9Fm 



KS 



AR 



AOh AIh A2h A3h A4h A5h A6h A7h 

BOh B1h B2h B3h B4h B5h B6h B7h 

A8n A9 h AAh ABh ACh ADh AEh AFh 

B8h B9h BAh BBh BCh BDh BEh BFh 



AMS 

-EN 



1DR 



COh C1h C2h C3h C4h C5h C6h C7h 

DOh D1h D2h D3h D4h D5h D6h D7h 

C8h C9h CAh CBh CCh CDh CEh CFh 

D8h D9h DAh DBh DCh DDh DEh DFh 



DT2 



2DR 



EOh EIh E2h E3h E4h E5h E6h E7h 
FOh EIh F2h F3h F4h F5h F6h F7h 
E8h E9h EAh EBh ECh EDh EEh EFh 
F8h F9h FAh FBh FCh FDh FEh FFh 



1DL 



RR 



-So 1 1 'yXbAsbLbbAs, b Lb Lbb Ltz-o 

tz(DThZ> 0 YAMAHA fct— A,* Cl t £ -5 ^ ? t-otz 

btztf, OPM T’B, 

INP (&H701) 



244 KSiicdJSXl 



Hll-4 701n 




ttZ t, H1 11-4 OJ: -5 *X7--^X*i#e>tt-SOt l JfeSo h> h 7 UT* 

*f V > $ % Z. t OPM H BUSY Tt(DT, 7-7% OUT 

OT^5 o OPM 0Via7/u; i|) t jtluEr -7 64 ^ny^oH 

BUSY EftS^STib-So iot$Sttu©t’y h^O K*ott'l> Z.k*BM Lti^ 
T — ^ 64 ? o y ? E<^;U£$>o fc^-? PsJ b 

t'yH, 0 © IST(fc.£AT y^7/h- 
Xf-^xo: kT&Z5) B>5CIW“A-7D- (fflt>&&) (OPM P*3 

j«0) ^>fv$ij?LT^50W CZ-8BSlTtti<l€)®»l!?a*aitgttfiejl.*v» (<£$ 
£«fe *V»)©TRW»± U*^„ E5 UT fefcl 0 fcV»Att##XlK 6 ® YM 2151 ®t-^ 
7>\'%%X^tzt£%tz^ o Sfc, CZ-8BSl*KpoTV»SA4 6tfr^aR^*Jfe»oT 

^©WREtt-rOPMtfSfcAiiJSJSP 

'>>-tv-4->. rontmt, ttz— #uaofc<tojK*iaiiie>b 

Vi®T*-5o 

OPMrig* 

OPM CJi 8 ft ( 8 tfT X) 7ti7ti(D7v h 

;tKi-:T?g±^t^5 0 T®0O0^1/- 
**l** rT;P3f'J XAJ fcBffcfft-S 
fc®-r*?>o ^®T7P^y xa&ei n-5 cjjrfo viP(cz-8BSi c#i©y7 h-c&e 
a v^t)U^l~8 k*oTV»S®*»**, ;it»0~7 tUTi^0J-r-5o ti5t, £ 
n^Aoior^UASISl:, 1 # (0P1) E*fUg#*>£ ttiT, 3: EM Sit®? 

iii^tV^itCM<T|)5^o (FEED BACK) 

OT-ibSo ^TajT < £*> &£*.-£■ 33 < i-Co 

S^KCiia RM >'&#§£®B&J * 
©T$>3 0 fc/iUWsfcEiM >«*tt-r*f»®fe®Ttt*<, &FiEftfc^USEfc*SRT 

£T, '>y-fef-Tif®Tn/NtfcB^.5®^|i]ii-6® rxy^o-^J -C£>£(SSG: 
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0 11-5 7^^'IXu 




AY-3-8910 i ^ i: 3i ? © -C&;t) 0 y ? y- h, r -4 

t-'d'-h, -y-XT' (~>u—h, txfl-v^v, 0 1) — XI/- h fc</>5 'f’Otife 

-So itUii±i^lOBfK^lb^©T*S)So T, t> C OPM CS 

D , ■eti ; rnc4-^w-^*Mfi-f'Oa&S©TafeSo 0^a3T*8 x 4 = 32f@©;T^y 
^LTS itKS 32 {@©^-^1/-^^, y^t 

a-Y'^^T'# %<DX’hi>o ^ hhZht^ix^tl(D^^U-^<D^W^ 0.5fg~25.95 
fg©raT-f t>Ltz<9, £ t>tzl l tm4>fc7‘7X/7't -t-XLtz<9 bnJU&KVZ'&Zx, Ott 

(DThio FM^igCiJV^T 

■&J t^-5©« rj£t^fc-&s>j f’(ttt±*<, *ra?scfeRrtg*©’cS)S.o -r&fr*., 

SIN (2(at+di) +SIN (&jt + d 2 ) 

SIN (wSIN (2wt + di) + d 2 ) 

%t°<DJ:5%mfrafc>-£tf?%Z<D?$>Zo T, (± 4 f@fe &6 foVtz 0 SfcC 

opi K'#50tiSo fc*a fc, 

SIN (SIN (SIN (•••) +d,) +d 2 ) 

fci^-5 idfcSSBfcft* i t fe-C#S©TS>So t T ifWSttttl#*;: *:**?* S 



0 n-6 iv-^p — y 




246 RSKCJij&Xl 



(Dtzfrh, SofcViSA/fcW&fiJ-f £ fctfTS Si 3 *«**-$* SJ T&Sdc (5~6, h 

ifciimt^SlcftoTifc, 7>, 'y>, xD — t*s 0 

OPM<aLS;a9T&3 

fcl>5 tzzv, ti-o t 0 fcl^X?©8?lfc£i&&*£©'C*£o 

• 01 H : LFO RESET (TEST) 

£©U^X;$Oifc b b LH§T©tX hfgC&S b<D?i&, Z.<DV*J7,?(F>% 1 t*y h 

SrirfeTtfst cru — roj) lfo ©y^7( 

LFO t H Low Frequency Oscillator={SjWS#§81®E§© •! LTfc-So <H ftfi W £ (3# 
KRt>-&-2./c*C{fV^TV^©/fo W©*L>-f±^C(i, 

LXx- h :#g (JSS») **±T1-4 
hFtn:fl (#©X§£) a*±TfS 

© 2fcJ3t)*S&S 0 LFOtedflfc© TSI*J fflSC^S fe©*©-C*.a o LFOC«011-7 
Cfj-f J:-5 'J-fcy h fcttJlfrfc© 5 

C-TSJ t^HhiOt^So 

t> &&CSSG (AY-3-8910) © r^Y^a-XJ fi n EiSt £ fe ©T & 5 0 




• 08h : KEY ON/OFF 

?CD ON/OFF b<D~Ch 

So ITOIIOIObJ £*£3Aifi:, T 3 tTy b ** 010 B = 2 T, ^© 

*ll£ FM=t« 247 



±® 4 t*y h lOlle/i © OP4, OP2, OP1 ifi ON, OP3 *s OFF \Z & 

■S©-Cafe& 0 

£#tf«OFF, **UC + 1111000 B = 78„Lfcfe©fc*ttfcfON tV^itK*5 0 

• 0F„ : NE/NFREQ 

OPM -CteH 7ftV^;KD 0P4 -i Xx~ F £##r?TV:>& ©Tafe 2><, NE= 1 

ty4X^-KC*S„ NFREQSSSGOR6 

•So 5 b*y Hfi-C k ^©^S[8Sc^^«)S0T*'S o XT XCJSjftftkV^Ofe**©-?* 
-S*L £, fe©&©-Cafe& o tC3T'0PM-C«C©y^X1t|g(iSfcA,E:ion¥l/-e 

fi^v^OTabSo VIP li^oilgSiotv^notibSo £4£*>t fc, 7-f 

— F'*7?£{£-5 ty-f Xcjfiv^^ttj-yrf Ll^i'?)!&©tS)5o iot 
7©OP4*ffrJ ;©«#gtt«lt--So 

• 10 H , 11h, 12h : CLKA, B 

Ztlte OPM foW.Of'i v©K^fflt : 'i,a o CZ-8BSl Tf4ffi4?*V»©TV»V»ftfl*KK9! 
tT4b’<o t'Ff't V A {4 10 t*y Ajj&Ltfc A,**TffiT*S 0 ^© 10 tTy 

hOffi ( 0-1023) §N»tt5i, *-fvA©JSIS&T A tt f 
nr _ 64x(l024 — Na) 

1 A f 

Im 

k4«, l*liOPMCttftSftTV»4^Dy^?, XI T« 4MHz ?&Z 0 J:oTT A ©ft 
16.38ms, ft/Jvftfi 16 /<s Th& 0 
y -i v B & 8 tf y F ~C, 

'T' _ 1024 X (256- CLKB) 

1 B- f 

Am 

ktt-o tl'So iot, 256 //s<T B < 65. 536 ms-Cafe 5 o 

• 14h ; 9 4 vn > h n — )V 

LOAD -i v (DWlVEffibh, IRQEN**«9Oii**iBC1-*»i?^i»07 9^ (CZ-8BS1 
fr^), F RESET #*:*-' s'- 7 □ -7 7 r/(fijx&© 1ST -CafeS)© 1 ) -fey Ft* 
oTV^„ t'tib r lJtMMB-J-4 0 CSM= 1 tt&bf'f V A*^-/s*-7a-LX:t 

• ^ ^ISIBfC ON CtS itiJTI -So -fe 4: S3 fc 5 Tafe 

***. »JD)A^tg*5(£A*^0-C«EAE*fe^^ o 

h,Z80©*-F 2 0#J!?^C*j')S-C§*^^fe*©Xf o PIO £Hk: 
AtitiHb*5tzfrVg&tf, t^/S14©ifv> CTC £f£oTL£AL 

^•5 :tc45„ 



T-/^-7n-*S|S^FUf 1ST ©ftfS-f S tfy Mil K^oTV^o 

• 18„ : LFRQ 

LF0©JS&»*ft4t>SV'$;x*'rfc.S o LFRQ 0ffii:|||R©JS«»©MflRtt* 11-1 © 
i5C4o TVi-So i©^CttSS!Jtt*s*-o-C, 



f,= 



f M x 2 (LFR9/I6) 

4295 X10 6 



24S fS&Ctil* XI 






* 11-1 



LFRQ 


(Hz) 


LFRQ 


(Hz) 


LFRQ 


JU;&& 

(Hz) 


LFRQ 


/!)$& 

(Hz) 


FF 


59.1278 


BF 


3.6955 


7F 


0.2310 


3F 


0.0144 


FE 


57.2205 


BE 


3.5763 


7E 


0.2235 


3E 


0.0140 


FD 


55.3131 


BD 


3.4571 


7D 


0.2161 


3D 


0.0135 


FC 


53.4058 


BC 


3.3379 


7C 


0.2086 


3C 


0.0130 


FB 


51.4984 


BB 


3.2187 


7B 


0.2012 


3B 


0.0126 


FA 


49.5911 


BA 


3.0994 


7A 


0.1937 


3A 


0.0121 


F9 


47.6837 


B9 


2.9802 


79 


0.1863 


39 


0.0116 


F8 


45.7764 


B8 


2.8610 


78 


0.1788 


38 


0.0112 


F7 


43.8690 


B7 


2.7418 


77 


0.1714 


37 


0.0107 


F6 


41.9617 


B6 


2.6226 


76 


0.1639 


36 


0.0102 


F5 


40.0543 


B5 


2.5034 


75 


0.1565 


35 


0.0098 


F4 


38.1470 


B4 


2.3842 


74 


0.1490 


34 


0.0093 


F3 


36.2396 


B3 


2.2650 


73 


0.1416 


33 


0.0088 


F2 


34.3323 


B2 


2.1458 


72 


0.1341 


32 


0.0084 


FI 


32.4249 


B1 


2.0266 


71 


0.1267 


31 


0.0079 


FO 


30.5176 


BO 


1.9073 


70 


0.1192 


30 


0.0075 


EF 


29.5639 


AF 


1.8477 


6F 


0.1155 


2F 


0.0072 


EE 


28.6102 


AE 


1.7881 


6E 


0.1118 


2E 


0.0070 


ED 


27.6566 


AD 


1.7285 


6D 


0.1080 


2D 


0.0068 


EC 


26.7029 


AC 


1.6689 


6C 


0.1043 


2C 


0.0065 


EB 


25.7492 


AB 


1.6093 


6B 


0.1006 


2B 


0.0063 


EA 


24.7955 


AA 


1.5497 


6A 


0.0969 


2A 


0.0061 


E9 


23.8419 


A9 


1.4901 


69 


0.0931 


29 


0.0058 


E8 


22.8882 


A8 


1.4305 


68 


0.0894 


28 


0.0056 


E7 


21.9345 


A7 


1.3709 


67 


0.0857 


27 


0.0054 


E6 


20.9808 


A6 


1.3113 


66 


0.0820 


26 


0.0051 


E5 


20.0272 


A5 


1.2517 


65 


0.0782 


25 


0.0049 


E4 


19.0735 


A4 


1.1921 


64 


0.0745 


24 


0.0047 


E3 


18.1198 


A3 


1.1325 


63 


0.0708 


23 


0.0044 


E2 


17.1661 


A2 


1.0729 


62 


0.0671 


22 


0.0042 


El 


16.2125 


A1 


1.0133 


61 


0.0633 


21 


0.0040 


EO 


15.2588 


AO 


0.9537 


60 


0.0596 


20 


0.0037 


DF 


14.7820 


9F 


0.9239 


5F 


0.0577 


IF 


0.0036 


DE 


14.3051 


9E 


0.8941 


5E 


0.0559 


IE 


0.0035 


DD 


13.8283 


9D 


0.8643 


5D 


0.0540 


ID 


0.0034 


DC 


13.3514 


9C 


0.8345 


5C 


0.0522 


1C 


0.0033 


DB 


12.8746 


9B 


0.8047 


5B 


0.0503 


IB 


0.0031 


DA 


12.3978 


9A 


0.7749 


5A 


0.0484 


1A 


0.0030 


D9 


11.9209 


99 


0.7451 


59 


0.0466 


19 


0.0029 


D8 


11.4441 


98 


0.7153 


58 


0.0447 


18 


0.0028 


D7 


10.9673 


97 


0.6855 


57 


0.0428 


17 


0.0027 


D6 


10.4904 


96 


0.6557 


56 


0.0410 


16 


0.0026 


D5 


10.0136 


95 


0.6258 


55 


0.0391 


15 


0.0024 


D4 


9.5367 


94 


0.5960 


54 


0.0373 


14 


0.0023 


D3 


9.0599 


93 


0.5662 


53 


0.0354 


13 


0.0022 


D2 


8.5831 


92 


0.5364 


52 


0.0335 


12 


0.0021 


D1 


8.1062 


91 


0.5066 


51 


0.0317 


11 


0.0020 


DO 


7.6294 


90 


0.4768 


50 


0.0298 


10 


0.0019 


CF 


7.3910 


8F 


0.4619 


4F 


0.0289 


OF 


0.0018 


CE 


7.1526 


8E 


0.4470 


4E 


0.0279 


OE 


0.0017 


CD 


6.9141 


8D 


0.4321 


4D 


0.0270 


OD 


0.0017 


CC 


6.6757 


8C 


0.4172 


4C 


0.0261 


OC 


0.0016 


CB 


6.4373 


8B 


0.4023 


4B 


0.0251 


OB 


0.0016 


CA 


6.1989 


8A 


0.3874 


4A 


0.0242 


OA 


0.0015 


C9 


5.9605 


89 


0.3725 


49 


0.0233 


09 


0.0015 


C8 


5.7220 


88 


0.3576 


48 


0.0224 


08 


0.0014 


C7 


5.4836 


87 


0.3427 


47 


0.0214 


07 


0.0013 


C6 


5.2452 


86 


0.3278 


46 


0.0205 


06 


0.0013 


C5 


5.0068 


85 


0.3129 


45 


0.0196 


05 


0.0012 


C4 


•4.7684 


84 


0.2980 


44 


0.0186 


04 


0.0012 


C3 


4.5300 


83 


0.2831 


43 


0.0177 


03 


0.0011 


C2 


4.2915 


82 


0.2682 


42 


0.0168 


02 


0.0010 


Cl 


4.0531 


81 


0.2533 


41 


0.0158 


01 


0.0010 


CO 


3.8147 


80 


0.2384 


40 


0.0149 


00 


0.0009 
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• 19h : F, PMD or AMD 

t* V h l\m%L PMD mT&Zfr AMD FBTfc6fr%E.W}i~?)tzfcCDbCD'C$) 
S 0 F= 1 T PMD C, F= 0 T AMD C«*)ftS 0 SWR-fiK, OPM OrtfpCtt PMD 
1: AMDffl©=00 7 try h©*it7-^iyr**2bS©«0 J fUPyh7=Fli, t* 

y F 0~6©{i£ PMDC7-^xy TOjClSi', S-ftk fe AMD©;&K:jS£-5*>©7 

AMD, PMDtt0~127O**Kje-r5*)tt«i*, LFO ©*>*> 9 

^*5{>0T'^l.o fcfiU b Ztitf-Ct^xykt S fcOTfi&v*,, P b < Iti'&UMR 

'T %>o 

tzzTt'-L'cmmz i9 „ t ia h ®— T^m 
T&Z> a 

• 1B„ : CTi, CT 2 , W 

CTm CT 2 t±^.®*3> ho-^tifcftCfeOtii, YM2151 Ctt CT„ CT 2 t^d 
*£CiIfTbTV»S©T*So Ot 9 2 tfy F hTfc 

So 

WttLFO©«^*JB®-f S fc©T*5o ttk»»©HfcttBll-7T*4o LFO ** 
PMD AMD KifebtlS^T^bjt? itKffifc 

£ £*»&$fcttB 11-3 0SCiLi'i'-5t< StettT*4o 8ffii©f- + y^/H4-r^TB 
UTfcS*&£ft*6$fettf- + >'*/l'0 £;ftSikt 4. fcbfef-^ V*;P3 £®-5 ©*£ 
3tmf («TB») ©IS^©-eS)So 

• 20h : RL, FB, ALG 

tf y F 7, 6 feOT^So 0 11-3 -CtifefflC* 

oT^Stfy F 7*5R (£&#*§£) ft’y F 6W,TiSCtKa*. FB«0Pl©7^r 
-Fa*^ (gB^ll) ©&t££&*S b<DTh6o 0 ^StfgB^liii^LT'^So ff 
JftCfi* 11-2*sttoTViS*S, r*/8 J *s— ^M^UTV»S©d'«, &©fc}ofc;ikT 
kCi'< FB£*£ < tzt; 'fXoSV rs>+~>J hv^fK5ot^<o 
ALG «jtuji&©7 >Udt D XA£F|£-f S fc©T&S 0 



S 11-2 7-r — K' <, y 



FB 


0 


1 


2 


3 


4 


5 


6 


7 




OFF 


/r/16 


71 / 8 


7r/ 4 


k/2 


n 


2/t 


4/t 



• 28 h : KEY CODE 

• 30 h : KEY FRACTION 

CilttWPSSJBJe-fS Pi^X^tiSo KEY CODE © F v S ©WPg, KEY 
FRACTION O^ttiaiSSffi'C^S (¥W=100 -try F t Lt 1.6 -tr y bMfrT 64 aB = 
0~100.8-teVF*BSTSS)o ST, OPM 3.58 MHz J: 3 KRff-S*lT 
v>S©fi*b CZ-8BS1 Ttt 4MHz T|ft*»tTV»5©«o «t oT ; tH©JB5£»±**©f'-^ 
kil^Tb£5©T£>S 0 ZtiTt* 5 -rs^tv^ k, KEY FRACTION C 5 *fg£ 
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U Wt$ KEY CODE — Ofl-WC ■’P -5 ©T& S 0 i 3.58 MHz Tit 

F, P, s, 7r, v, 7 , '7, F ii, 

3E h , 41 h , 44 h , 45 h , 48m 4 Ah» 4Dm 4 Eh 

•&©■?&***, CZ-8BS1 Tfi, 

3C h , 3E h , 41 h , 42 h , 45m 48m 4Am 4 Ch 

Fi* T ?C H J C>5cofcOt k 2bS*^^*>9^ , 1' < tc-otzb 
*38, KEY CODE C 10„£jQ;L£ t 1 7 7 ^-^±©WC*iOTJbSo * 
n-3 ^#l©:t 0 



* 11-3 4MHz»fmfl>*— 3— K(KEYFRACTION = 5 fct*- t) 



KEY CODE 


+ 0Ch 


+0Dh 


+ 0Eh 


+ 0Fh 


+ 10h 


+ lln 


+ 12h 


+ 13h 


+ 14h 


+ 15h 


+ 16h 


+17h 


+ 18h 


+ 19h 


+ IAh 


+ IBh 


£ *1 


c 


C# 


D 


(D#) 


D# 


E 


F 


(F#) 


F# 


G 


G# 


(A) 


A 


A# 


B 


(+0 



• 38„ : PMS, AMS 

CtUi 19 h O PMD or AMD fcHffifc* fc d 3 -?££<, £ fc & T j$t£t £ o 

• 40 H ^«7 7'A7#^)ii-ctt*<, atgrkestft-cK^i-So 
© AR, 1DR, 2DR, 1DL, RR, TL, KS 

:n?>(iiv^D-7Kiit?.A"7/-^T*l. 0 g|ii-8 tc^Lfci: i 
fV'&o -5 L3l*V'**, AR(7 7 -y 7 P- F ), 1DR(7 

T-X F T4 *T ' f P-F), 2DR (-E7P FrV W P-F), RR CJ U-XP-F) lt± 
§lt SrStTrC* SolDL(7 7 — X F T*4 'r'f P 
^p)t±^Lito-C, lDR-»2DR<0«0*ijfti3Si-«)0-p*So AR tHIfcfcfc&LfctB 



@11-8 X>"<n-7"}t^:<7V'°7.X-? 
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tltf 1DR 1DL tztZh TM 0 2DR Izfej Mj i zW >) % 

z.t>tlZ>cr>-ChZ>o oi 0, 

0 AR : (*-* 

>, A-:*7«Wi>'X7 08 H T^|®t'-5AT't*feo)o 

2) 1DR : AR tztlL 1DL-Cfg^$ 

tltzfrt£V??£ o 

3) 2DR:iDL£«!>Sbfctoo Ttt4*‘?>i©2DRTJB56 , r5aST«o'r^** 
3W fc/fb*-*7K:&S iTTto 

4) RR : +-^7C*ofcftttRRT#|3£tfcaSTiS9*$V» 0 ttV»i<T*SL 

tz o 

t*oTVi-5 0T*-5 0 ^UTftttCTL ( h BStSKfi^Oti 
So TL (t 0 THkJz, 127 Tft/hOtij^J fc &S D 
T, IHUHttra3JttHfrWCir5*oTV»4©36»T2b*o **114*11-4, 11-5 *©T 
SftCti KS(A-X7-y >^) 2><DT$>Zo *-* !) >?t it 

t: 5 0 b <Dti' hi/* o t, 

t5 (*-5^3^— KfcttW’T&.I'S) 



35 11-4 KS,KC-R ks 




11-5 tb*S!-(tB#Fe1S 



A 10%+->90% 



ATTACK TIME 


DECAY TIME 


RATE 


ms(10%-90%) 


RATE 


ms (90%-* 10%) 


63 


0.00 


63 


1.22 


62 


0.24 


62 


1.22 


61 


0.24 


61 


1.22 


60 


0.24 


60 


1.22 


59 


0.30 


59 


1.39 
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B 0% — 100% 



ATTACK TIME 


DECAY TIME 


RATE 


ms(0%-100%) 


RATE 


ms(100%-0%) 


63 


0.00 


63 


6.02 


62 


0.47 


62 


6.02 


61 


0.47 


61 


6.02 


60 


0.47 


60 


6.02 


59 


0.57 


59 


8.03 



58 


0.36 


58 


1.62 




58 


0.67 


58 


8.03 


57 


0.42 


57 


1.95 




57 


0.81 


57 


9.63 


56 


0.59 


56 


2.43 




56 


1.00 


56 


12.04 


55 


0.55 


55 


2.78 




55 


1.09 


55 


13.77 


54 


0.65 


54 


3.26 




54 


1.27 


54 


16.06 


53 


0.78 


53 


3.89 




53 


1.53 


53 


19.27 


52 


0.98 


52 


4.87 




52 


1.91 


52 


24.08 


51 


1.12 


51 


5.57 




51 


1.99 


51 


27.52 


50 


1.31 


50 


6.49 




50 


2.33 


50 


32.11 


49 


1.57 


49 


7.79 




49 


2.78 


49 


38.53 


48 


1.96 


48 


9.74 




48 


3.48 


48 


48.16 


47 


2.24 


47 


11.12 




47 


3.98 


47 


55.04 


46 


2.61 


46 


12.99 




46 


4.65 


46 


64.22 


45 


3.13 


45 


15.58 




45 


5.58 


45 


77.06 


44 


3.91 


44 


19.48 




44 


6.97 


44 


96.33 


43 


4.48 


43 


22.26 




43 


7.97 


43 


110.09 


42 


5.22 


42 


25.96 




42 


9.29 


42 


128.43 


41 


6.27 


41 


31.16 




41 


11.15 


41 


154.12 


40 


7.87 


40 


38.95 




40 


13.94 


40 


192.65 


39 


8.95 


39 


44.52 




39 


15.93 


39 


220.17 


38 


10.44 


38 


52.83 




38 


18.58 


38 


212.12 


37 


12.52 


37 


62.32 




37 


22.30 


37 


308.25 


36 


15.65 


36 


77.90 




36 


27.88 


36 


385.31 


35 


17.89 


35 


89.03 




35 


31.86 


35 


440.35 


34 


20.87 


34 


103.86 




34 


41.53 


34 


513.74 


33 


25.05 


33 


124.64 




33 


44.60 


33 


616.48 


32 


31.32 


32 


155.80 




32 


55.75 


32 


770.60 


31 


35.78 


31 


177.43 




31 


63.72 


31 


835.95 


30 


41.75 


30 


207.74 




30 


74.34 


30 


1027.48 


29 


50.10 


29 


249.28 




29 


89.20 


29 


1232.97 


28 


62.62 


28 


311.60 




28 


111.51 


28 


1541.22 


27 


71.57 


27 


356.12 




27 


127.43 


27 


1761.39 


26 


83.50 


26 


415.47 




26 


148.68 


26 


2296.04 


25 


100.20 


25 


498.57 




25 


178.41 


25 


2465.94 


24 


125.26 


24 


623.21 




24 


223.01 


24 


3082.42 


23 


143.15 


23 


712.23 




23 


254.87 


23 


3522.77 


22 


167.01 


22 


830.94 




22 


297.35 


22 


4109.90 


21 


200.40 


21 


997.13 




21 


356.82 


21 


4931.89 


20 


250.50 


20 


1246.41 




20 


446.02 


20 


6164.86 


19 


286.29 


19 


1424.47 




19 


509.74 


19 


7045.55 


18 


334.01 


18 


1661.88 




18 


594.69 


18 


8228.76 


17 


400.81 


17 


1994.26 




17 


713.63 


17 


9863.77 


16 


501.01 


16 


2492.83 




16 


892.04 


16 


12329.71 


15 


572.59 


15 


2848.95 




15 


1019.48 


15 


14091.09 


14 


668.01 


14 


3323.77 




14 


1189.38 


14 


16439.61 


13 


801.62 


13 


3988.52 




13 


1427.27 


13 


19727.54 


12 


1002.02 


12 


4985.65 




12 


1784.08 


12 


24659.42 


11 


1145.16 


11 


5697.88 




11 


2038.95 


11 


28182.20 


10 


1336.02 


10 


6647.53 




10 


2378.78 


10 


32879.23 


9 


1603.23 


9 


7977.05 




9 


2854.53 


9 


39455.07 


8 


2004.04 


8 


9971.30 




8 


3568.16 


8 


49318.84 


7 


2290.32 


7 


11395.78 




7 


4077.90 


7 


56364.40 


6 


2672.05 


6 


13295.07 




6 


4757.55 


6 


65758.46 


5 


3206.45 


5 


15954.08 




5 


5709.06 


5 


78910.15 


4 


4008.07 


4 


19942.60 




4 


7136.33 


4 


98637.69 


3 




3 


MR* 




3 


mr* 


3 


MR* 


2 


«!* 


2 


MR* 




2 


MR* 


2 


mr* 


1 




1 


MR* 




1 


mr* 


1 


mr* 


0 


MR* 


0 


MR* 




0 


mr* 


0 


mr* 
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fcOT^-S o D £*S*WfeC£S*'5 4®? 

i5o U >?"£t£B£|-f So 

lfliR^5= AR, 1DR, 2DR0#£*6tf**L6©« 
ft) *JR *0 &©■?&•&;&*, -e-5T(i^<T, tLfe RROlp^'ili', 

R=2XRR+ 1 
t-f-SOTJbSo 

#U;r* 11-4 5fot Rks^^^-So St® A KS ( 0 ~ 3 ) , if0^+"* J KEY CODE 
®±{i 5 tfy h =KC' ( 0 ~31) T*So fc tilf KS= 2 , KEY CODE = 2E„ = 0101110b 
t-f -S t, KC' = 01011b = 11 fc#-S©-C*J: D Rks« 5 t&So 
R t R ks 

RATE=MAX(2XR+R KS , 63) 

fti o o£D, RATE <D±M% 63 CrUM'f 2><DT$>Z 0 £0RATE*«Br», *11-5 
A, 11-5 B *» 6 R#M £»(■#-*- * £ t K*5o * 11-5 A COklitBk^ 10 90 %©^fb£ 

1--SRfW, * 11-5 B©^U:0%~ 100 ?, W5O0.t 

b £{fl (i 7 ? -y ? w - 6 ( AR) Kiot if Sp-f S B#IH, fefIJJ fi T T ^ -f 1/ - h (1DR, 
2DR, RR) Ci-sTS^tSiH^J&^o ms( 1 /1000 W 

^ o 

iitt = 1DL x 3 (dB) 

t%-0X^Z o t:1£ L,1DL &Mk<D 15®t #(i§^.C+48 dB ITS £ t C4oTV»4 (o 
^ 15 x 3 +48 = 93 dB) 0 dB T, r's'OVl 

;Rt(i®fS£#PJLA’^7^A • TLO^tt, 

Ma»=TLx0.75(dB) 

btS;-3 Tfc’D, £Ll©ft*M*mU: 95.25dB T&-S 0 

(D DTI , DT2 , MUL 

Z.tUb KEY CODE E KEY FRACTIONT^fe/cJWSiSt^^PfiP'f 
-So KEY CODE t KEY FRACTION rt? **, DTI, DT2, MUL 
« ^ ? r t izWiMV BJUtT h 3 o 1 1 £ fr > b > — ■ o © f - * y * > VT * ^ i / - ? &%<]* © 

JM$&?Bbft?Z<Dt2o £i*H& 11-6 T* So ftoa^MUL ( 0 • — 15), §£©**' 
**DT2 ( 0 ~ 3 ) T&-S<, £ ©*£> b I# 65 tl tz {S % Fr (FREQUENCY RATIO) t 

I - -So 



« 11 - 6 . DT2 , MUL^FrR 



MUL 

DT2 ^\^ 


0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


0— >1 


0.50 


1.00 


2.00 


3.00 


4.00 


5.00 


6.00 


7.00 


8.00 


9.00 


10.00 


11.00 


12.00 


13.00 


14.00 


15.00 


1 - / 2fg 


0.71 


1.41 


2.82 


4.24 


5.65 


7.07 


8.46 


9.89 


11.30 


12.72 


14.10 


15.55 


16.96 


18.37 


19.78 


21.20 


2 —* v 2.5 fS 


0.78 


1.57 


3.14 


4.71 


6.28 


7.85 


9.42 


10.99 


12.56 


14.13 


15.70 


17.27 


18.84 


20.41 


21.98 


23.55 


3 - yr « 


0.87 


1.73 


3.46 


5.19 


6.92 


8.65 


10.38 


12.11 


13.84 


15.57 


17.30 


19.03 


20.76 


22.49 


24.22 


25.95 



254 HDtfcfl}* XI 



IS 11-7 KC', DTI— *Fd R 



\dti 


-tz> 


h (•=£ e=t - 


= 100 -tz 


> h ) 


Hz 


KCn^ 


0 


± 1 


± 2 


± 3 


0 


± 1 


± 2 


± 3 


0 


0.000 


0.000 


5.025 


10.036 


0.000 


0.000 


0.053 


0.107 


1 


0.000 


0.000 


4.228 


8.445 


0.000 


0.000 


0.053 


0.107 


2 


0.000 


0.000 


3.559 


7.110 


0.000 


0.000 


0.053 


0.107 


3 


0.000 


0.000 


2.993 


5.980 


0.000 


0.000 


0.053 


0.107 


4 


0.000 


2.515 


5.025 


5.025 


0.000 


0.053 


0.107 


0.107 


5 


0.000 


2.115 


4.228 


6.338 


0.000 


0.053 


0.107 


0.160 


6 


0.000 


1.778 


3.555 


5.330 


0.000 


0.053 


0.107 


0.160 


7 


0.000 


1.496 


2.990 


4.483 


0.000 


0.053 


0.107 


0.160 


8 


0.000 


1.258 


2.515 


5.025 


0.000 


0.053 


0.107 


0.213 


9 


0.000 


1.057 


3.170 


4.225 


0.000 


0.053 


0.160 


0.213 


10 


0.000 


0.889 


2.667 


3.555 


0.000 


0.053 


0.160 


0.213 


11 


0.000 


0.748 


2.242 


3.735 


0.000 


0.053 


0.160 


0.267 


12 


0.000 


1.258 


2.515 


3.143 


0.000 


0.107 


0.213 


0.267 


13 


0.000 


1.057 


2.114 


3.170 


0.000 


0.107 


0.213 


0.320 


14 


0.000 


0.889 


1.778 


2.667 


0.000 


0.107 


0.213 


0.320 


15 


0.000 


0.748 


1.869 


2.615 


0.000 


0.107 


0.267 


0.373 


16 


0.000 


0.629 


1.572 


2.515 


0.000 


0.107 


0.267 


0.427 


17 


0.000 


0.793 


1.566 


2.114 


0.000 


0.160 


0.320 


0.427 


18 


0.000 


0.667 


1.334 


2.001 


0.000 


0.160 


0.320 


0.480 


19 


0.000 


0.561 


1.308 


1.869 


0.000 


0.160 


0.373 


0.533 


20 


0.000 


0.629 


1.258 


1.729 


0.000 


0.213 


0.427 


0.587 


21 


0.000 


0.529 


1.057 


1.566 


0.000 


0.213 


0.427 


0.640 


22 


0.000 


0.445 


1.001 


1.445 


0.000 


0.213 


0.480 


0.693 


23 


0.000 


0.467 


0.935 


1.308 


0.000 


0.267 


0.533 


0.747 


24 


0.000 


0.393 


0.865 


1.258 


0.000 


0.267 


0.587 


0.853 


25 


0.000 


0.397 


0.793 


1.123 


0.000 


0.320 


0.640 


0.907 


26 


0.000 


0.334 


0.723 


1.056 


0.000 


0.320 


0.693 


1.013 


27 


0.000 


0.327 


0.654 


0.935 


0.000 


0.373 


0.747 


1.067 


28 


0.000 


0.315 


0.629 


0.865 


0.000 


0.427 


0.853 


1.173 


29 


0.000 


0.315 


0.629 


0.865 


0.000 


0.427 


0.853 


1.173 


30 


0.000 


0.315 


0.629 


0.865 


0.000 


0.727 


0.853 


1.173 


31 


0.000 


0.315 


0.629 


0.865 


0.000 


0.427 


0.853 


1.173 



ifcc DTI (- 3 ~+ 3 ) b, 9cUtar § tz KEY CODE ©±(i 5 t'y h #©(®, KC'£ 
ffioT*11-7 *»£> Fd DTI \tv*j7,9 40 H ~5F H ©^6, 5, 4 bfyhTfcS 

**, I6t*7 h SrflF^-tfy h i <D?&Z> 0 ZLXFdt DTI OfiF^fipIUKI-S 

£ to 9 KC' = 11, DTl = -2T*ofc*6, Fd= -0.160(Hz) = -2.242(-fe > h ) 

b%Z> o 

m±<D i 5 K Fr fc Fd KEY CODE fc KEY FRACTION ( + LFO 

EiJSi) TftloT^fcHSRFCSlT, 

F' = FxFr+Fd 

KM*.* Z 6<D?$>Z 0 

(D PMD, AMD, PMS, AMS, AMD-EN 

V'i^±StTS)5o CfUtH 11-9 fc-gBf&TfcS $ 0 ^CT, PMD 

or AMD (o£ D 127) ©hi® PMS ©*>*> D^&fciSl 11-8 T^-So PMS= 7© 

Sllim FM 255 



HI 11-9 '<-7 * — 




*11-8 PMS CJ:53li!J£(PMD=127<7)fc #) 



PMS 


0 


1 


2 


3 


4 


5 


6 


7 


(-fe> 1) 
(¥£ = 100 M > h) 


0 


± 5 


± 10 


± 20 


± 50 


± 100 


± 400 


± 700 



fc£{J700 *:> VT&Zfrb, 0 li^7iS^(DT$)6 0 AMD COUlt, ffiMMlt 
AMD = 0 -*• OdB, 1 -* 23.90625dB, 2 - 47.8125dB, 3-> 95.625dB kftrjTV'5. TL 1C 
X S 95 . 25dB Tt> 6 ti'b , St Z C AMD C *» $ fc tt 

0 C^otU^CT'iblio 

OPM © u $> X ? ©f£HJ liifclfr 9 T'£> S o C tt/iOTIi 4? b ft 

UHL 4xftv>©-C, t> i u t-9->-7°;u$-ic-e:Tfc < 0 'J A h 11-1 a* VIP © NEWTONE 
oT#7ct°T/©Wfer-^T"S>5o U A h 11-2 © 231~232 fr£J¥ADT, 480 ff 
F s. y®fott*5 0 ft # r -*:£*© IMS « 2tij%btf i&'MWl, 
lffit) L< « 3 tfjft 6 »f 10 £ft, ZtlXm%bl£2mmtM%R2tiZ i5C4oTir> 
So T'-^fciiScfcS&ATOPM *v»u 9 i fc L*Ovfcrtf3fcv», 

'lxlll-1 h'y / 

100 READ R$ : R1 $=LEFT$ ( R $ , 1 ) : IF Rl$ = "!" THEN END 

110 IF R 1 $ = " P " THEN PAUSE VAL ( MIDS ( R$ , 2 , 255 ) ) : GOTO 100 

120 R=VAL ( "&H"+R$ ) 

130 READ D$ : DL= INSTR ( D$ , " ") 

140 IF DL=0 THEN DL=LEN(D$)+1 



256 tmKiti&Xl 




150 ON DL GOTO 170,170,180,170 
160 E$= "&B" : GOTO 190 
170 E$ = " " : GOTO 190 
180 E$="&H" 



190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 



D = VAL(E$ + D$) : 'IF D< > 0 THEN PRINTHEX$ ( R ) , D 
GOSUB"SFM" : GOTO 100 

t 

LABEL" SFM M 

* WHILE ( INP ( &H7 0 1 ) AND &H80):WEND 
OUT &H700 , R 
OUT &H701 ,D 
RETURN 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



01,02,01,00 : ’ TEST 

08,00,08,01,08,02,08,03: ' KEY OFF (0-3) 
08,04,08,05,08,06,08,07 
0F , 00000000 



’KEY OFF (4-7) 
’ NE/FREQ 



10,00,11,00,12,00,14,00: ’ CLK Al,A2,B 

18 , 220 : * LFRQ 

19,00000100 : ’ PMD/AMD 

IB, 00000010 : ’CT/W 

20,11111010 : ’RL/FL/CON 

30 , 00010100 : * KF 

38.00010001 : ’ PMS/AMS 

40,01010001 : ’ DTI /MUL ( 1 ) 

50,01110001 : ’ DTI /MUL ( 2 ) 

48,00100101 : * DTI /MUL ( 3 ) 

58.00010001 : ’ DTI /MUL ( 4 ) 
60,037,70,062,68,077,78,010: »TL( 1-4) 
80,5F,90,56,88,5D,98,9F: ’KS/AR( 1-4) 
A0,05,B0,00, A8 , 00 , B8 , 87 : * AMS-EN/D1R ( 1-4) 
C0 , 07 ,D0 , 04 ,C8 , 04 ,D8 , 06 : ’DT2/D2R( 4 ) 
E0,94,F0,45,E8,45,F8,45: ’D1L/RR(4) 
28,3C,08,78,P9,08,00,P6 
28,3E,08,78,P9,08,00,P6 

28. 41. 08. 78, P9, 08, 00, P6 

28. 42. 08. 78, P9, 08, 00, P6 

28. 45. 08. 78, P9, 08, 00, P6 

28. 48. 08. 78, P9, 08, 00, P6 
28,4A,08,78,P9,08,00,P6 
28,4C,08,78,P9,08,00,P6 



u ^ h n-2 



231 IF ( &H28 < =R ) AND (R<=&H2F) THEN 240 

232 IF ( R> = &H20 ) THEN FOR L=0 TO 2 : GOSUB240 : R=R+ 1 : NEXT : RETURN 



480 DATA 28,30,29,41 ,2A,45 

490 DATA 08,78,P4,08,79,P4,08,7A,P4 

500 DATA 08,00,08,01,08,02 

510 DATA 08 , 78 , 08 , 79 , 08 , 7A, P9 

520 DATA 08,00,08,01 ,08,02, P6 

530 DATA ! 
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tz^j] £7ifT k £>£ (tft©^^— El" & b7°y*y3-*>t£tf, ‘git? j J r>\'&<DVs&%: 
¥?Ltf 7 >^z£Z.tztztf(Db<DbfrZ> o ^©J: •5£;£^*fc<S£*.£</>)o 

Lido T’yS'a.jfcWi, t ZtUZttlfcLt: 2 ffifS©iS£©IE&j&a* 

£5£ttffl&C£oT^£©-C;£>£o $1© fcVi-5 WC^-So T, 

fi^)C £©<£ -5 ^ ^ h -^tl^lH 1 1-10 T$> So — @BS#§'C&?> 
a * 5 , tzk*.\f r 5 J ©tf^^fflTt 770 Hz t 1336 Hz ©-o©jEK«**ai*©T* 
So -«©WS«GttA, B, C, D©*7y»#^t 

v>£v> 0 ^TSi^o 



121 11-10 ffLtf? V( 7 )iE 5 iJt)SSIS< 7 )Ml* 




st, ii*>636*jffi£?*©TJbs**, may? '>**>-?#? y&wi'-titiz 
tftfj ©Wfc, AM^SiePTt^^iWfc, WK®»ek-3Tttrau*©T*So 
T, jEffll*«»*S[TPffi*e*:ttSA**2A^T, Wg*©3HSPCfajfcoT f tftfjffXJ 
t < t, *>*&tWEStffrfr-o~C Lt 0<DX'hho LfrLMlk%ZkliZ*Z&T 

IE5iCPl& ; &^^5A ; &2AfcatiT< 5 £ fcttJiU»0T, f©ttto9CFMf*«f« 
oTL*3s3 fcvOfettTJbSo 11-3T*So 

1 ) iEliCfl'^atfo 

2) 110 fr&Sfc 9 £ 9 , 120fr©REM(’) OUTRUN f5» 

3) K©SSc^+- i &if U /y^a^yojK^ylfflfetSCH^is^ 
t, T# Sfc*ltia< £5 «fc-5 Ctf- FKtt^T^S >J 7 A£f§ti5-f 3 0 

4) *B©£K»*®i!J, aMSPfcxtf-j&Cie^l*, t?tf/N‘t£o tztzLZ<Dt% 117 
£t*© i -5 c^mniSl-i£v.'#^-l±iglt 2 >o MkWit&frtDK ISB 4 3 
-?£>•?> £ k*5W8'J-S©*»J:v>T*5'5o fc bfeMfc^WBCtt^'CLSofcfc J: < 

z to 

t^ 5 £>VT, £©«$*«*.« V 7 FtttfT G 2 tlSP£X tf-*CfipoT < 4 &Stt 
&&**) 4"— hT'-YT^wTSSOTabSo fii^iS^'lllSKV 7 ici^f t fcv>o £33, iU 
±©frS&tt NTT £ tte£V>ttf'T&Si'££n>bTffioTV»fc;£#fcV» 

258 RKfctliaXl 



{tz7XX*Ja-7~*J*y7 eaSHSKR 1 ** t> itXit *v»). 

%l£frK.Z.<07-9 — y?*fcm-tti)i£, V7 Y7 s-7tzitX H£fi ti ttOff* 7°7 J 

**’? flMUtttt*®** 55). -tf t> fc 6 g LTnft«#tev». 



V* h 11-3 h->^>T77 



100 GOSUB" INIT" 

110 D$= "604 1111": GOSUB 150 

120 * D$=INKEY$ ( 1 ) : GOSUB 150:GOTO120 

130 END 

140 » 

150 FOR 1=1 TO LEN ( D$ ) 

160 A$=MID$(D$ , I , 1 ) : PRINT A$ ; 

170 GOSUB200 
180 NEXT: RETURN 
190 ’ 

200 T=INSTR( " 123456789*0#" ,A$ ): IF T=0 THEN RETURN 
210 T=T- 1 : L=T ¥ 3:H=4+(T MOD 3) 

220 R=8 : D=&H78+L : GOSUB 380 
230 R=8:D=&H78+H: GOSUB 380 
240 PAUSE 1 
250 R=8 : D=L : GOSUB 380 
260 R=8 : D=H : GOSUB 380 
270 RETURN 
280 ’ 

290 LABEL" INIT" 



300 READ R$ :R1$=LEFT$ (R$ , 1 ) : IF Rl$=" !" THEN RETURN 
310 R=VAL("&H"+MID$(R$,1,2) ) 

320 M$=MID$ (R$ , 3 , 1 ) : IF THEN 340 

330 R0=R : R1 =VAL ( "&H"+MID$ ( R$ , 4 , 2 ) ) 

340 READ D$ : D=VAL ( "&H" +D$ ) 

350 GOSUB 370 : GOTO 300 
360 * 

370 IF M$ = " - " THEN FOR R = R0 TO R 1 : GOSUB380 : NEXT : RETURN 

380 OUT &H700 , R 

390 OUT &H701 ,D 

400 RETURN 

410 ’ 

420 DATA 01,02,01,00 : ’ TEST 

430 DATA 08 , 00 , 08 , 01 , 08 , 02 , 08 , 03 : ’KEY OFF (0-3) 

440 DATA 08 , 04 , 08 , 05 , 08 , 06 , 08 , 07 : ’KEY OFF (4-7) 

450 DATA 0F- IB , 00 ; ’ NE/FREQ . . . 

460 DATA 20-27,47 :’RL/FL/CON 

470 DATA 28, 51, 29, 54, 2A, 56, 2B, 59: ’ KCODE (0-3) 

480 DATA 2C , 5E , 2D, 61 , 2E , 62 , 2F, 00 : ’KCODE (4-7) 

490 DATA 30, EC, 31, A8, 32, 6C, 33, 24: ’ KF (0-3) 

500 DATA 34 , 78 , 35 , 34 , 36 ,EC, 37 , 00 : ’KF (4-7) 

510 DATA 38-3F , 00 : ’ PMS /AMS 

520 DATA 40-5F , 0 1 :’DT1/MUL 

530 DATA 60-7F , 20 :’TL 

540 DATA 80-9F , IF :’KS/AR 

550 DATA A0-DF , 00 : ’ AMS-EN/ 1DR , DT2/2DR 

560 DATA E0-FF , FF : ’ 1DL/RR 

570 DATA ! 



fcv>-5 t Z.hX, FM b LX MML 

~'J: i-tSK BASIC ©PLAY fcffofc 9 t Zt>ittz 0 Z L 

T ttLb BASIC <D^%%k%_fc^%;%i)sbXL&7>tz(DTh-otz 0 -?"5, it o 

% 0 BASIC t, i^OlE&li 

BASIC t^-5 (Dtz&iZ^—i? a >7 y fiX^tz 0 t 

6fr?>T$>6 0 A&<Dm'&itZtlTbt:l>Lt:&Wit%^<D?$>Ztf, LfrL^itVZZ 

FMf® 259 



fe bfe ztifrV't-Vs y-ciicoJ:-# 
9 bfc^ffl2>©t k $)-5 0 ba>L{£v>(8fc? 4 t, if-5bT 
>b BASIC ©#§^l*^'^*©t k ibSo fflofck©T£>S 0 

MMLTftS 

U* MI-4, 11-5, 11-6T*So i^0§1-^»fc, yxMl-4**y-X'jXMBASIC* 

• y x h ii-5*^©y"x7“y x h, y x h 11-6^-y-y 

STffiV^TJbSo S1*tt NEW ON &HC000 fcUffbfcftTy X b 11-5 
*, CRC£fitSS-fS (#iA^a ) 0 XI r~?totiHZ Z S 

TTabSofe Lfc turbo x.— !f-T2b ■&#£•«, $ 6 C&© 3 So 

A965 : 07 07 -> A3 IF 
A9D9 : 04 07 -» AO IF 
A9E8 : 07 07 -> A3 IF 

SAVEM "MML. OBJ", &HA8B0, &HAFFF T-fe-X'-f & 0 

Zo CZ-8FB01 V1.0 Z&mtZo NEW BASIC T tt * V,' L , turbo 
BASIC NEW ON &HB000 £HfrL;fc&, LOADM "MML, OBJ" tn-F 

L, CALL &HA8B0 :nt MML **«*.* J: 5 K*S 0 



U X 1 11-4 MML V-XU X 1 









. Z80 












.PHASE 


0A8B0H 




0704 




CTC 


EQU 


07 04H 




4000 




WTOP 


EQU 


4000H 




A8B0 


21 A900 


* 


LD 


HL , 0A900H 




A8B3 


22 2DE3 




LD 


( 2DE3H) , HL 




A8B6 


22 2E1 1 




LD 


(2E11H) , HL 




A8B9 


22 2E13 




LD 


(2E13H) , HL 




A8BC 


C9 




RET 






A8BD 




KOKO: 


DS 


0A900H-KOKO 




A900 


CD 7FD1 


* 


CALL 


7FD1H 




A903 


3A A5DB 




LD 


A, (0A5DBH) 


; A=VAR TYPE 


A906 


E5 




PUSH 


HL 


; SAVE TEXT PTR 


A907 


EB 




EX 


DE , HL 




A908 


FE 03 




CP 


03 


; STRING ? 


A90A 


28 72 




JR 


Z.DOSTR 


; GET STRING 






•ELSE ’ 


TEMPO 






A90C 


CD 5436 


STEMPO 


: CALL 


5436H 


;CSNG 


A90F 


CD 5BAF 




CALL 


5BAFH 


; -> INT ( ->HL) 


A912 


7C 




LD 


A , H 




A913 


B5 




OR 


L 




A914 


20 4C 




JR 


NZ , PRET 








; TEMPO 


0=INITIALIZE 




A916 


21 4001 


INIT : 


LD 


HL , WTOP+ 1 




A919 


22 A9D4 




LD 


(HEAD) , HL 




A91C 


22 A9D6 




LD 


( HEAD0 ) , HL 




A91F 


2B 




DEC 


HL 




A920 


22 A9D2 




LD 


(TAIL) , HL 


; INIT POINTERS 


A923 


44 




LD 


B,H 




A924 


4D 




LD 


C , L 


; BC=HL 
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A925 


AF 




XOR 


A 


A926 


ED 79 




OUT 


( C ) , A ; DUMMY DATA 


A928 


3E IE 




LD 


A, 30 ; TEMPO 120 


A92A 


32 AE17 




LD 


( TMPV ) , A ; TEMPO AREA 


A92D 


21 AE7 8 


* 


LD 


HL , DFLDMY ;INIT DFLW 


A930 


11 AE7C 




LD 


DE.DFLW 


A933 


01 0024 




LD 


BC, 4*9 


A936 


ED B0 




LDIR 




A938 


23 




INC 


HL 


A939 


36 0C 




LD 


(HL) , 12 


A93B 


2B 




DEC 


HL 


A93C 


01 0008 




LD 


BC ,4*2 


A93F 


ED B0 




LDIR 








; DE=ACTF 




A94 1 


EB 




EX 


DE , HL ; HL=ACTF 


A942 


06 0B 




LD 


B, 11 


A944 


36 00 


INIT0 : 


LD 


( HL ) , 0 ; KILL 


A946 


23 




INC 


HL 


A947 


10 FB 




DJNZ 


INIT0 


A949 


F3 


’ 


DI 




A94A 


3E C3 




LD 


A, 0C3H 


A94C 


32 013C 




LD 


( 1 3CH ) , A 


A94F 


21 A964 




LD 


HL , QUIET1 


A952 


22 0 1 3D 




LD 


( 1 3DH ) , HL 


A955 


CD 013C 




CALL 


013CH ; QUIET 


A958 


CD A9D8 


* 


CALL 


TOCTC 


A95B 


21 AA32 




LD 


HL, IEXEC 


A95E 


22 005E 




LD 


( 005EH ) , HL ; SET VECTOR 


A96 1 


FB 




El 




A962 


El 


PRET: 


POP 


HL 


A963 


C9 




RET 








; stop 


SOUND < 


-PSG MUTE <- "ctrl-D" 


A964 


01 0707 


QUIET1 


: LD 


BC.CTC+3 


A967 


3E 03 




LD 


A, 3 


A969 


ED 79 




OUT 


(C) ,A ; RESET CTC 


A96B 


16 07 


’ 


LD 


D , 7 


A96D 


3E 08 




LD 


A, 8 


A96F 


CD ADD5 


Q2: 


CALL 


WOPM 


A972 


15 




DEC 


D 


A97 3 


20 FA 




JR 


NZ,Q2 


A97 5 


CD ADD5 




CALL 


WOPM ; D=0 


A97 8 


01 1C00 


’ 


LD 


BC, 1C00H 


A97B 


C3 013F 




JP 


013FH ; PATCH BACK 



DO STRING 



A97E 


CD 


7FC3 


DOSTR : 


CALL 


7FC3H ; GET REAL ADDR 


A98 1 


B7 






OR 


A 


A982 


28 


03 




JR 


Z, PRETX ;LEN=0 


A984 


CD 


A99F 




CALL 


STORE ; A=LEN 


A987 


El 




PRETX : 


POP 


HL 


A988 


7E 






LD 


A, (HL) 


A989 


D6 


3B 




SUB 


1 ; ’ ; MUSIC " . . . " ; 


A98B 


23 






INC 


HL 


A98C 


C8 






RET 


Z 


A98D 


2B 






DEC 


HL ; BACK HL 


A98E 


ED 


4B A9D6 


PRETXX : 


LD 


BC, ( HEAD0 ) 


A992 


AF 






XOR 


A 


A993 


ED 


79 




OUT 


(C) , A . ;SET END MARK 


A995 


03 






INC 


BC 


A996 


ED 


43 A9D6 




LD 


( HEAD0 ) , BC 


A99A 


ED 


43 A9D4 




LD 


( HEAD ) , BC ;COPY 


A99E 


C9 






RET 




A99F 


ED 


4B A9D6 


STORE : 


LD 


BC, ( HEAD0 ) 


A9A3 


2A 


A9D4 




LD 


HL, (HEAD) 


A9A6 


B7 






OR 


A 


A9A7 


ED 


42 




SBC 


HL , BC 


A9A9 


20 


05 




JR 


NZ, STORE 1 


A9AB 


2E 


3A 




LD 


L, ’ : ’ 


A9AD 


ED 


69 




OUT 


(C) , L 


A9AF 


03 






INC 


BC 


A9B0 


6F 




STORE 1 : 


LD 


L , A ; L=LEN 


A9B 1 


1A 




SLOOP: 


LD 


A, (DE) 
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; UPPER 



A9B2 


FE 61 




CP 


’ a ’ 




A9B4 


38 06 




JR 


C,S0 




A9B6 


FE 7B 




CP 


’ z ’ +1 




A9B8 


30 02 




JR 


NC,S0 




A9BA 


C6 E0 




ADD 


A, ’A’-’a’ 




A9BC 


ED 79 


S0 : 


OUT 


(C) ,A 




A9BE 


03 




INC 


BC 




A9BF 


13 




INC 


DE 




A9C0 


78 


* 


LD 


A , B 




A9C 1 


B 1 




OR 


C 




A9C2 


28 08 




JR 


Z , FULL 




A9C4 


2D 




DEC 


L 




A9C5 


20 EA 




JR 


NZ, SLOOP 




A9C7 


ED 43 A9D6 


’ 


LD 


( HEAD0 ) , BC 




A9CB 


C9 




RET 






A9CC 


CD 013C 


FULL: 


CALL 


1 3CH 




A9CF 


C3 2027 




JP 


2027H ; OUT OF 


MEM 


A9D2 


4000 


TAIL: 


DEFW 


4000H 




A9D4 


4000 


HEAD: 


DEFW 


4000H 




A9D6 


4000 


HEAD0 : 


DEFW 


4000H 




A9D8 


01 0704 


TOCTC : 


LD 


BC.CTC 




A9DB 


3E 27 




LD 


A, 1 00 1 1 IB 




A9DD 


ED 79 




OUT 


(C) , A 




A9DF 


3E 01 




LD 


A i 1 




A9E1 


ED 79 




OUT 


(C) ,A 




A9E3 


3E 58 




LD 


A, 58H 


; SET VECTOR 


A9E5 


ED 79 




OUT 


(C) ,A 




A9E7 


01 0707 


TOCTC1 


: LD 


BC , CTC+3 


;CH3 


A9EA 


3E C7 




LD 


A , 110001 1 IB 




A9EC 


ED 79 




OUT 


(C) , A 




A9EE 


3A AE 1 7 




LD 


A , ( TMPV ) 


; TEMPO 


A9F1 


ED 79 




OUT 


(C) , A 




A9F3 


C9 




RET 














INT ROUTINE ====== 




A9F4 






DS 


30*2 




AA30 




INTSP : 


DS 


2 




AA3 2 


F3 


IEXEC : 


DI 






AA33 


ED 73 AA30 




LD 


(INTSP) , SP 




A A3 7 


31 AA30 




LD 


SP, INTSP 




AA3A 


F5 




PUSH 


AF 




AA3B 


C5 




PUSH 


BC 




AA3C 


D5 




PUSH 


DE 




AA3D 


E5 




PUSH 


HL 




AA3E 


21 AEA8 


f 


LD 


HL.ACTF 




AA41 


06 0B 




LD 


B, 11 




AA4 3 


AF 




XOR 


A 




AA44 


B6 


IE0 : 


OR 


(HL) 




AA4 5 


23 




INC 


HL 




AA46 


20 4A 




JR 


NZ , IE1 ; SOMTHING ALIVE 


AA48 


10 FA 




DJNZ 


IE0 








; NEXT 


BLOCK OR 


END 




AA4A 


ED 4B A9D2 




LD 


BC, (TAIL) 




AA4E 


2A A9D4 


IEQ : 


LD 


HL, (HEAD) 




AA5 1 


2B 




DEC 


HL 




AA52 


B7 




OR 


A 




AA53 


ED 42 




SBC 


HL , BC 




AA55 


28 51 




JR 


Z , IE9 ; EMPTY - 


> NOTHING 






; NEXT 


BLOCK AND SET PCS 




AA57 


ED 78 




IN 


A, (C) 




AA59 


03 




INC 


BC 




AA5A 


28 0C 




JR 


Z , START 




AA5C 


ED 78 


DROP: 


IN 


A, (C) 




AA5E 


03 




INC 


BC 




AA5F 


20 FB 




JR 


NZ , DROP 




AA61 


0B 




DEC 


BC 




AA62 


ED 43 A9D2 




LD 


(TAIL) , BC 




AA66 


18 E6 




JR 


IEQ 
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AA68 


ED 43 A9D2 


START 


: LD 


(TAIL) ,BC 


AA6C 


21 AEA8 




LD 


HL.ACTF 




AA6F 


E5 




PUSH 


HL 




AA70 


21 AEB3 




LD 


HL , PC 




AA7 3 


16 00 




LD 


D, 0 




AA7 5 


ED 7 8 


SPC0 : 


IN 


A, (C) 




AA7 7 


28 05 




JR 


Z,SPC1 


; HIT STRING END 


AA79 


03 




INC 


BC 




AA7 A 


FE 3A 




CP 


9 • 9 




AA7C 


20 F7 




JR 


NZ.SPC0 




AA7E 


B7 


SPC1 : 


OR 


A 




AA7F 


28 02 




JR 


Z , SPC2 




AA81 


3E 01 




LD 


A, 1 




AA83 


E3 


SPC2 : 


EX 


(SP) , HL 




AA84 


77 




LD 


(HL) , A 


; ! ! 


AA85 


23 




INC 


HL 


; INC ACTF ADDR. 


AA86 


E3 




EX 


(SP) , HL 




AA87 


71 




LD 


(HL) ,C 




AA88 


23 




INC 


HL 




AA89 


70 




LD 


(HL) ,B 




AA8A 


23 




INC 


HL 




AA8B 


14 




INC 


D 




AA8C 


7A 




LD 


A , D 




AA8D 


FE 0B 




CP 


11 


; CHECK COUNTER 


AA8F 


38 E4 




JR 


C , SPC0 




AA91 


El 




POP 


HL 


; DROP ACTF 






•PCS 


ARE READY 










; 00H= 


DEAD , 0 1H = 


ALIVE, 80H= 


ACTIVE 


AA92 


11 0000 


IE1 : 


LD 


DE , 0 ‘ 


; CHANNEL 


AA9 5 


21 AEA8 




LD 


HL.ACTF 




AA98 


D5 


IEL : 


PUSH 


DE 




AA99 


E5 




PUSH 


HL 




AA9A 


7E 




LD 


A, (HL) 




AA9B 


B7 




OR 


A 




AA9C 


C4 AAB3 




CALL 


NZ , ACT 


; ALIVE OR ACTIVE 


AA9F 


El 




POP 


HL 




AAA0 


D1 




POP 


DE 




AAAI 


23 




INC 


HL 




AAA2 


1C 




INC 


E 




AAA3 


7B 




LD 


A , E 




AAA4 


FE 0B 




CP 


11 




AAA6 


20 F0 




JR 


NZ, IEL 




AAA 8 


El 


IE9 : 


POP 


HL 




AAA9 


D1 




POP 


DE 




AAAA 


Cl 




POP 


BC 




AAAB 


FI 




POP 


AF 




AAAC 


ED 7B AA30 




LD 


SP, ( INTSP ) 


AAB0 


FB 




El 






AAB1 


ED 4D 




RETI 




; RET FROM I NT 










SUB ===== 




AAB3 


E5 


ACT: 


PUSH 


HL 


;SAVE ACTF 


AAB4 


D5 




PUSH 


DE 


; SAVE CH NO. 


AAB5 


F2 AACA 




JP 


P , ACT7 




AAB8 


CD ADE0 


1 


CALL 


RCTR 


; READ COUNTER 






; BC=OMOTE , HL=URA 




AABB 


78 




LD 


A , B 




AABC 


B 1 




OR 


C 




AABD 


D 1 




POP 


DE 




AABE 


E5 




PUSH 


HL 




AABF 


CC ACDB 




CALL 


Z , KEYOFF 




AAC2 


El 




POP 


HL 




AAC3 


7C 




LD 


A , H 




AAC4 


B5 




OR 


L 




AAC5 


El 




POP 


HL 




AAC6 


C0 




RET 


NZ 




AAC7 


36 01 




LD 


(HL) ,1 


; SLEEP 


A AC 9 


C9 




RET 










•ALIVE AND NOT 


-ACTIVE 




AACA 


CB 23 


ACT 7 : 


SLA 


E 


; DE=DE*2 


AACC 


21 AEB3 




LD 


HL , PC 




AACF 


19 




ADD 


HL , DE 




AAD0 


4E 




LD 


C, (HL) 




AAD1 


23 




INC 


HL 
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AAD2 


46 




LD 


B, (HL) 


; GET PC 


AAD3 


ED 78 


’ 


IN 


A, (C) 


; READ NOTE 


AAD5 


28 04 




JR 


Z , DIE 




AAD7 


FE 3 A 




CP 


• : * 




AAD9 


20 08 




JR 


NZ , WAKE 


; HIT NOTE 


AADB 


D 1 


DIE: 


POP 


DE 




AADC 


70 


DIE2 : 


LD 


(HL) ,B 




AADD 


2B 




DEC 


HL 




AADE 


71 




LD 


(HL) ,C 


; SAVE PC 


AADF 


El 


* 


POP 


HL 


; GET ACTF 


AAE0 


36 00 




LD 


(HL) ,0 


; KILL (ACTF) 


AAE2 


C9 




RET 










; WAKE 


UP 






AAE3 


D 1 


WAKE: 


POP 


DE 


; DE=CHANNEL NO. 


AAE4 


ED 78 


WUL : 


IN 


A, (C) 




AAE6 


28 F4 




JR 


Z.DIE2 




AAE8 


FE 3A 




CP 


1 • 1 




AAEA 


28 F0 




JR 


Z , DI E2 




AAEC 


D5 




PUSH 


DE 




AAED 


E5 




PUSH 


HL 


; SAVE PC.ADDR. 


AAEE 


CD AAFE 




CALL 


DONOTE 


; DO NOTE 


AAF1 


El 




POP 


HL 




AAF2 


28 E7 




JR 


Z , DIE 


; HIT ’ : ’ OR 00H 


AAF4 


D1 




POP 


DE 


; GET CH NO. 


AAF5 


38 ED 




JR 


C , WUL 


; NOT REAL NOTE 






; HIT REAL NOTE 




;A-G,N,W 


AAF7 


70 




LD 


(HL) ,B 




AAF8 


2B 




DEC 


HL 




AAF9 


71 




LD 


(HL) ,C 


; SAVE / PC 


AAFA 


El 


1 


POP 


HL 


; GET ACTF.ADDR 


AAFB 


36 80 




LD 


(HL) , 80H 


;MAKE ACTIVE 


AAFD 


C9 




RET 














DO NOTE =: 








; DE=CHANNEL NO. 


, (BREAK OK) 


AAFE 


ED 78 


DONOTE 


: IN 


A, (C) 




AB00 


03 




INC 


BC 




AB0 1 


FE 41 




CP 


’A’ 




AB03 


38 2 A 




JR 


C , DN0 


; ?<A 


AB05 


FE 48 




CP 


’G’ +1 




AB07 


30 34 




JR 


NC.DNl 


; ?>G 


AB09 


CD AB1 A 




CALL 


GETNT 


; GET A-G 


AB0C 


C5 


RN0 : 


PUSH 


BC 




AB0D 


D5 




PUSH 


DE 




AB0E 


CD AC6 7 




CALL 


KEYON 




AB1 1 


D1 




POP 


DE 




AB 1 2 


Cl 




POP 


BC 




AB1 3 


CD ACED 


RN1 : 


CALL 


DONUM 


; NEW BC 


AB 1 6 


3E 01 


RN2 : 


LD 


A, 1 




AB 1 8 


B7 




OR 


A 


; NZ , NC 


AB 1 9 


C9 




RET 










; GET A 


-G 






AB1A 


D6 41 


GETNT : 


SUB 


’A’ 




ABIC 


87 




ADD 


A, A 




AB1D 


6F 




LD 


L, A ; 


; SAVE NOTE 


ABIE 


ED 78 




IN 


A, (C) 




AB20 


03 




INC 


BC 




AB2 1 


FE 2D 




CP 


> _ » 




AB2 3 


C8 




RET 


Z 




AB24 


2C 




INC 


L 




AB25 


2C 




INC 


L 




AB26 


FE 2B 




CP 


* + * 




AB28 


C8 




RET 


Z 




AB29 


FE 23 




CP 


*#* 




AB2B 


C8 




RET 


z 




AB2C 


2D 




DEC 


L ; 


NOMAL NOTE 


AB2D 


0B 




DEC 


BC 




AB2E 


C9 




RET 







L=CODE, 



@@@@@@ &, { } 
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;&,>,< 








AB2F 


FE 3E 


DN0 : 


CP 


»>» 


;OCT UP 


AB31 


CA AC2 1 




JP 


Z , UPDOWN 




AB3 4 


FE 3C 




CP 


»<» 


; OCT DOWN 


AB36 


CA AC2 1 




JP 


Z, UPDOWN 




AB39 


7F 


ACT8 : 


LD 


A, A 




AB3A 


B7 




OR 


A 




AB3B 


37 




SCF 






AB3C 


C9 




RET 




; NZ , C 






;R»n,q, 


, L , T , 0 1 


,V,I,Y,W 




AB3D 


FE 4E 


DN1 : 


CP 


'N* 


; NOTE BY CODE 


AB3F 


28 51 




JR 


Z , NPLAY 




AB4 1 


FE 52 


9 


CP 


’R’ 




AB4 3 


28 CE 




JR 


Z,RN1 


; Rn 


AB4 5 


FE 49 




CP 


*1* 


; GAKKI BANGOU 


AB47 


CA AEF5 




JP 


Z , INST0 




AB4A 


FE 59 


9 


CP 


1 Y * 


; 0-7 :OPM, 8-10 :PSG 


AB4C 


CA ABF3 




JP 


Z.WREG 




AB4F 


FE 57 


> 


CP 


i w i 


; BIG OMOTE, SMALL URA 


AB5 1 


CA ABDD 




JP 


Z • WAIT 




AB54 


FE 54 




CP 


’ T ’ 


; TEMPO 


AB56 


CA AC 3 3 




JP 


Z.STRUN 


; RUNTIME SET TEMPO 


AB59 


21 0000 




LD 


HL , 0 




AB5C 


FE 4F 




CP 


’O’ 




AB5E 


28 0F 




JR 


Z, SETGO 




AB60 


2C 




INC 


L 




AB6 1 


FE 56 




CP 


>v» 




AB6 3 


28 0A 




JR 


Z, SETGO 




AB65 


2C 




INC 


L 




AB66 


FE 51 




CP 


1 Q * ; 


RATIO 


AB68 


28 05 




JR 


Z, SETGO 




AB6A 


2C 




INC 


L 




AB6B 


FE 4C 




CP 


'L» ; 


DEFAULT LEN 


AB6D 


20 CA 




JR 


NZ , ACT8 ; 


NEXT 


AB6F 


E5 


SETGO : 


PUSH 


HL 




AB7 0 


CD AE0E 




CALL 


DFLTBL 




AB7 3 


D1 




POP 


DE 




AB7 4 


19 




ADD 


HL , DE 




AB7 5 


E5 




PUSH 


HL 




AB7 6 


F5 




PUSH 


AF 




AB7 7 


CD AD90 




CALL 


NUMBER 




AB7A 


30 04 




JR 


NC , STG1 




AB7C 


FI 




POP 


AF 




AB7D 


D1 




POP 


DE 




AB7E 


18 B9 




JR 


ACT8 




AB80 


67 


STG1 : 


LD 


H , A 


SAVE LAST A 


AB8 1 


FI 




POP 


AF 




AB82 


D1 




POP 


DE 




AB83 


EB 




EX 


DE , HL 




AB84 


73 




LD 


(HL) i E 




AB85 


FE 4C 




CP 


’L’ 




AB87 


20 B0 




JR 


NZ.ACT8 ; 


RET WITH C , NZ 


AB89 


7A 




LD 


A , D 




AB8A 


FE 02 




CP 


’ 0 ’ - * . ’ 




AB8C 


20 AB 




JR 


NZ.ACT8 




AB8E 


CB FE 




SET 


7 , ( HL ) ; 


SET BIT7 


AB90 


18 A 7 




JR 


ACT8 




AB9 2 


D5 


NPLAY : 


PUSH 


DE 




AB9 3 


CD AD90 




CALL 


NUMBER 




AB96 


38 3F 




JR 


C , NPLAY9 




AB98 


7D 




LD 


A , L 




AB99 


FE 60 




CP 


96 




AB9B 


30 3A 




JR 


NC , NPLAY9 








; A=A MOD 1 2 , E 


=A/12 




AB9D 


IE 00 




LD 


E , 0 




AB9F 


D6 0C 


NPL : 


SUB 


12 




ABA1 


38 03 




JR 


C , NPLAY0 




ABA3 


1C 




INC 


E 




ABA4 


18 F9 




JR 


NPL 




ABA6 


C6 11 


NPLAY0 : 


ADD 


A, 12 + 5 
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ABA8 


FE 0A 




CP 


10 


ABAA 


38 07 




JR 


C , NPLAY1 


ABAC 


3C 




INC 


A 


ABAD 


FE 0F 




CP 


15 


ABAF 


38 02 




JR 


C.NPLAYl 


ABB1 


D6 0E 




SUB 


14 


ABB3 


57 


NPLAY1 : 


LD 


D, A 


ABB4 


1C 




INC 


E ;D=CODE,E=< 


ABB5 


EB 




EX 


DE , HL 


ABB6 


D 1 




POP 


DE 


ABB7 


D5 




PUSH 


DE ; PUSH CH 


ABB8 


E5 




PUSH 


HL ; PUSH CODE 


ABB9 


CD AE0E 




CALL 


DFLTBL 


ABBC 


22 ABDB 




LD 


(NPLAYW) , HL 


ABBF 


D1 




POP 


DE 


ABC0 


7E 




LD 


A, (HL) ; PICK OCT 


ABCl 


73 




LD 


(HL) ,E ; SET OCT 






; HL=CH 


NO. 




ABC2 


6A 




LD 


L,D 


ABC3 


D1 




POP 


DE 


ABC4 


F5 




PUSH 


AF 


ABC5 


C5 




PUSH 


BC 


ABC6 


D5 




PUSH 


DE 


ABC7 


CD AC67 




CALL 


KEYON 


ABCA 


D1 




POP 


DE 


ABCB 


Cl 




POP 


BC 


ABCC 


CD ACED 




CALL 


DONUM 


ABCF 


FI 




POP 


AF 


ABD0 


2A ABDB 




LD 


HL, (NPLAYW) 


ABD3 


77 




LD 


( HL ) , A ; BACK OCT 


ABD4 


C3 AB16 




JP 


RN2 


ABD7 


D1 


NPLAY9 : 


; POP 


DE 


ABD8 


C3 AB39 




JP 


ACT8 


ABDB 




NPLAYW : 


: DS 


2 


ABDD 


D5 


WAIT: 


PUSH 


DE 


ABDE 


CD ACED 




CALL 


DONUM 


ABE1 


D1 




POP 


DE 


ABE2 


D5 




PUSH 


DE 


ABE3 


C5 




PUSH 


BC 


ABE4 


CD ADE0 




CALL 


RCTR 


ABE7 


23 




INC 


HL 


ABE8 


01 FFFF 




LD 


BC , 0FFFFH 


ABEB 


CD ADFC 




CALL 


WCTR 


ABEE 


Cl 




POP 


BC 


ABEF 


D1 




POP 


DE 


ABF0 


C3 AB16 




JP 


RN2 


ABF3 


D5 


WREG: 


PUSH 


DE 


ABF4 


CD AD90 




CALL 


NUMBER 


ABF7 


38 24 




JR 


C , WREG9 


ABF9 


ED 78 




IN 


A, (C) ‘ 


ABFB 


FE 2C 




CP 


* , * 


ABFD 


20 IE 




JR 


NZ.WREG9 


ABFF 


03 




INC 


BC 


AC00 


E5 




PUSH 


HL ; SAVE REG 


AC0 1 


CD AD90 




CALL 


NUMBER 


AC04 


7D 




LD 


A , L 


AC05 


El 




POP 


HL 


AC06 


38 15 




JR 


C , WREG9 


AC08 


D1 




POP 


DE 






; L=REG 


NO. , A=DATA,E=CHANNEL 


AC09 


C5 




PUSH 


BC 


AC0A 


57 




LD 


D , A ; DATA 


AC0B 


7B 




LD 


A , E 


AC0C 


FE 08 




CP 


8 


AC0E 


7D 




LD 


A , L 


AC0F 


38 07 




JR 


C , WROPM 


AC1 1 


CD ADC 3 




CALL 


WPSG 


AC 14 


Cl 


WREG1 : 


POP 


BC 


AC 15 


C3 AB39 




JP 


ACT8 






; WRITE 


REGISTER 


(OPM) 


AC 18 


CD ADD5 


WROPM : 


CALL 


WOPM 


AC1B 


18 F7 




JR 


WREG1 


ACID 


D1 


WREG9 : 


POP 


DE 


AC IE 


C3 AB39 




JP 


ACT8 



266 sig^aiS XI 



AC 2 1 


D6 3D 


UPDOWN : 


SUB 


’<’+1 




AC2 3 


CD AE0E 




CALL 


DFLTBL 




AC 2 6 


86 




ADD 


A, (HL) 




AC 2 7 


CA AB39 




JP 


Z , ACT8 




AC2A 


FE 09 




CP 


9 




AC2C 


D2 AB39 




JP 


NC.ACT8 




AC2F 


77 




LD 


(HL) , A 




AC30 


C3 AB39 


; TEMPO 


JP 


ACT8 




AC33 


CD AD90 


STRUN : 


CALL 


NUMBER 




AC 3 6 


DA AB39 




JP 


C , ACT8 




AC 3 9 


7D 




LD 


A , L 




AC3A 


FE IE 




CP 


30 




AC3C 


DA AB39 




JP 


C.ACT8 


; TOO SMALL 


AC3F 


C5 




PUSH 


BC 




AC40 


4D 


* 


LD 


C , L 




AC 4 1 


06 00 




LD 


B , 0 




AC4 3 


11 0E4E 




LD 


DE , 3662 




AC46 


21 0000 




LD 


HL, 0 




AC49 


3E 10 




LD 


A, 16 




AC4B 


CB 23 


STR1 : 


SLA 


E 




AC4D 


CB 12 




RL 


D 




AC4F 


ED 6A 




ADC 


HL , HL 




AC 5 1 


B7 




OR 


A 




AC52 


ED 42 




SBC 


HL , BC 




AC 5 4 


30 02 




JR 


NC , STR2 




AC 5 6 


09 




ADD 


HL , BC 


; BACK 


AC 5 7 


ID 




DEC 


E 




AC 5 8 


1C 


STR2 : 


INC 


E 




AC 5 9 


3D 




DEC 


A 




AC5A 


20 EF 




JR 


NZ.STRl 




AC5C 


7B 


* 


LD 


A , E 




AC5D 


32 AE1 7 




LD 


( TMPV ) , A 




AC60 


CD A9E7 




CALL 


TOCTC1 




AC63 


Cl 


* 


POP 


BC 




AC64 


C3 AB39 




JP 


ACT8 








;L=CODE 


( A- , A i 


, A+ G, 


G+ ) : 0-14 


AC67 


7B 


KEYON : 


LD 


A , E 


; CHANNEL NO. 


AC68 


FE 08 




CP 


8 




AC6A 


38 3A 




JR 


C , OPMDO 




AC6C 


7D 


PSGDO : 


LD 


A , L 


; A=CODE 


AC6D 


D5 




PUSH 


DE 




AC6E 


CD AE0E 




CALL 


DFLTBL 




AC7 1 


46 




LD 


B, (HL) 


; GET OCT 


AC72 


23 




INC 


HL 




AC7 3 


4E 




LD 


C, (HL) 


; VOL 


AC7 4 


87 




ADD 


A, A 




AC75 


5F 




LD 


E, A 


; D = 0 


AC7 6 


21 AE 1 8 




LD 


HL , PSGFRQ 


AC79 


19 




ADD 


HL , DE 




AC7A 


56 




LD 


D, (HL) 




AC7B 


23 




INC 


HL 




AC7C 


5E 




LD 


E, (HL) 


; ED=FREQ 


AC7D 


CB 3B 


PSG1 : 


SRL 


E 




AC7F 


CB 1A 




RR 


D 


; DE=DE/2 


AC8 1 


10 FA 




DJNZ 


PSG1 




AC83 


El 


9 


POP 


HL 


; HL=CHANNEL 


AC84 


61 


; FREQ 


LD 


H , C 


; SAVE VOL 


AC85 


7D 




LD 


A , L 




AC86 


D6 08 




SUB 


8 


; A=FREQ LOW 


AC88 


87 




ADD 


A, A 




AC89 


CD ADC 3 




CALL 


WPSG 




AC8C 


3C 




INC 


A 


; A=FREQ HIGH 


AC8D 


53 




LD 


D,E 




AC8E 


CD ADC3 


•VOL 


CALL 


WPSG 


; SET FREQ 


AC9 1 


7D 




LD 


A , L 


; CH8 -> R8 


AC92 


54 




LD 


D , H 


;D=VOL 


AC 9 3 


CD ADC3 




CALL 


WPSG 





; TONE? 



mum FM^i® 267 



AC 9 6 


3E 07 




LD 


A, 7 


AC98 


16 F8 




LD 


D.0F8H 


AC9A 


CD ADC 3 




CALL 


WPSG ;A,B,C=TONE 


AC9D 


3E 0D 




LD 


A, 13 


AC9F 


CD ADCC 




CALL 


RPSG 


ACA2 


CD ADC 3 




CALL 


WPSG 


ACA5 


C9 




RET 




ACA6 


7D 


OPMDO : 


LD 


A , L 


ACA7 


C6 17 




ADD 


A, 17H 


ACA9 


FE IB 




CP 


1BH 


ACAB 


38 0B 




JR 


C, OPMDOl 


ACAD 


D6 10 




SUB 


10H 


ACAF 


FE 0F 




CP 


0FH 


ACB1 


38 05 




JR 


C, OPMDOl 


ACB3 


FE 12 




CP 


12H 


ACB5 


28 01 




JR 


Z, OPMDOl 


ACB7 


3C 




INC 


A 


ACB8 


D5 


OPMDOl : 


PUSH 


DE ; SAVE CH NO. 


ACB9 


CD AF52 




CALL 


OPMV0 


ACBC 


F5 




PUSH 


AF ; PUSH CODE 


ACBD 


CD AE0E 




CALL 


DFLTBL 


ACC0 


7E 




LD 


A, (HL) ; GET OCT. . . . 


ACC 1 


3D 




DEC 


A 


ACC2 


87 




ADD 


A, A 


ACC 3 


87 




ADD 


A, A 


ACC4 


87 




ADD 


A, A 


ACC 5 


87 




ADD 


A, A 


ACC6 


57 




LD 


D , A 


ACC7 


FI 




POP 


AF 


ACC8 


82 




ADD 


A , D ; GET CODE 


ACC9 


57 




LD 


D , A 


ACCA 


El 




POP 


HL 


ACCB 


7D 




LD 


A , L ; A=CH NO. 


ACCC 


C6 28 




ADD 


A, 28H 


ACCE 


CD ADD5 




CALL 


WOPM 


ACD1 


7D 




LD 


A , L ; A=CH NO. 


ACD2 


F6 78 




OR 


78H 


ACD4 


57 




LD 


D , A 


ACD5 


3E 08 




LD 


A, 8 


ACD7 


CD ADD5 




CALL 


WOPM 


ACDA 


C9 




RET 








;E=CHANNEL NO. 




ACDB 


7B 


KEYOFF: 


LD 


A , E 


ACDC 


FE 08 




CP 


8 


ACDE 


38 06 




JR 


C, OFFOPM ;OPM 


ACE0 


16 00 


* 


LD 


D, 0 


ACE2 


CD ADC3 




CALL 


WPSG ; VOL=0 


ACE5 


C9 




RET 




ACE6 


53 


OFFOPM : 


LD 


D , E ; CH NO . 


ACE7 


3E 08 




LD 


A, 8 


ACE9 


CD ADD 5 




CALL 


WOPM 


ACEC 


C9 




RET 








; E=CHANNEL NO. 




ACED 


D5 


DONUM: 


PUSH 


DE 


ACEE 


CD AD04 




CALL 


DONUMS 






; RETURN 


HL=URA i 


, DE=OMOTE , BC=NEW 


ACF 1 


2B 




DEC 


HL 


ACF2 


IB 




DEC 


DE 


ACF3 


ED 53 AD02 




LD 


(DONUMW) , DE 


ACF7 


D1 




POP 


DE 


ACF8 


C5 




PUSH 


BC 


ACF9 


ED 4B AD02 




LD 


BC , ( DONUMW ) ; BC=OMOTE 


ACFD 


CD ADFC 




CALL 


WCTR 


AD00 


Cl 




POP 


BC 


AD0 1 


C9 




RET 




AD02 




DONUMW : 


DS 


2 


AD04 


CD AE0E 


DONUMS : 


CALL 


DFLTBL 


AD07 


23 




INC 


HL 


AD08 


23 




INC 


HL 


AD09 


56 




LD 


D, (HL) 


AD0A 


23 




INC 


HL 


AD0B 


5E 




LD 


E , ( HL ) ; D=Q , E=LEN 


AD0C 


D5 




PUSH 


DE 


AD0D 


ED 78 




IN 


A, (C) 



u.mzthz, xi 



AD0F 


FE 40 




CP 




AD11 


20 21 




JR 


NZ, DONOML 






; DIRECT 


COUNTER SITEI 


ADI 3 


03 




INC 


BC 


ADI 4 


11 0000 




LD 


DE , 0 


ADI 7 


CD ADB0 


XNUM0 : 


CALL 


DIGIT 


AD1A 


30 05 




JR 


NC, XNUMZ 


AD 1C 


11 0001 




LD 


DE, 1 


AD IF 


18 41 




JR 


XXX 


AD2 1 


5F 


XNUMZ : 


LD 


E , A ;D=0 


AD22 


CD ADB0 


XNUML : 


CALL 


DIGIT 


AD25 


38 3B 




JR 


C,XXX 


AD27 


62 




LD 


H , D 


AD28 


6B 




LD 


L,E 


AD29 


29 




ADD 


HL,HL 


AD2A 


29 




ADD 


HL.HL 


AD2B 


19 




ADD 


HL , DE 


AD2C 


29 




ADD 


HL,HL 


AD2D 


5F 




LD 


E , A 


AD2E 


16 00 




LD 


D , 0 


AD30 


19 




ADD 


HL , DE 


AD3 1 


EB 




EX 


DE , HL 


AD32 


18 EE 




JR 


XNUML 


AD34 


CD AD90 


DONOML: 


CALL 


NUMBER ; 


AD37 


30 09 




JR 


NC , DONUM0 






;USE DEFAULT 


VALUE 


AD 3 9 


6B 




LD 


L,E 


AD3A 


CB 7D 




BIT 


7,L 


AD3C 


28 04 




JR 


Z , DONUM0 






;’.’=FUTEN ! 




AD3E 


CB BD 




RES 


7 , L ; BIT7=0 


AD40 


3E FE 




LD 


A , 0FEH 


AD42 


F5 


DONUM0 : 


PUSH 


AF 


AD43 


7D 




LD 


A , L 


AD44 


FE 21 




CP 


33 


AD46 


38 02 




JR 


C , DNOK 


AD48 


2E 20 




LD 


L , 32 ;MAX 32 


AD4A 


FI 


DNOK : 


POP 


AF 


AD4B 


26 00 




LD 


H , 0 


AD4D 


CB 25 




SLA 


L ; HL=HL*2 


AD4F 


11 AE36 




LD 


DE , LENTBL 


AD5 2 


19 




ADD 


HL , DE 


AD5 3 


5E 




LD 


E, (HL) 


AD54 


23 




INC 


HL 


AD55 


56 




LD 


D , ( HL ) ; DE=REAL LEN 


AD56 


FE FE 


* 


CP 


0FEH 


AD 5 8 


20 08 




JR 


NZ , DONUM1 


AD5A 


62 




LD 


H , D 


AD5B 


6B 




LD 


L,E 


AD5C 


CB 3A 




SRL 


D 


AD5E 


CB IB 




RR 


E ; DE=DE/2 


AD60 


19 




ADD 


HL , DE ; HL=HL* 1 . 5 


AD6 1 


EB 




EX 


DE , HL 


AD62 




XXX: 






AD62 


62 


DONUM 1 : 


LD 


H,D ;DE=URA CTR 


AD63 


6B 




LD 


L , E ; COPY 


AD64 


FI 




POP 


AF ; A<-D=Q 






; KKKK 






AD6 5 


E5 




PUSH 


HL 


AD66 


67 




LD 


H, A 


AD67 


ED 78 




IN 


A, (C) 


AD69 


FE 26 




CP 




AD6B 


7C 




LD 


A , H 


AD6C 


El 




POP 


HL 


AD6D 


20 0D 




JR 


NZ , DONUM2 


AD6F 


03 


t 


INC 


BC 


AD7 0 


ED 78 




IN 


A, (C) 


AD7 2 


FE 2B 




CP 


’ + ' 


AD7 4 


20 18 




JR 


NZ , DONUM 4 


AD7 6 


03 




INC 


BC 


AD7 7 


21 FFFF 




LD 


HL , 0FFFFH 


AD7A 


18 12 




JR 


DONUM4 


AD7C 


3D 


DONUM2 : 


DEC 


A 


AD7D 


28 03 




JR 


Z , DONUM3 


AD7F 


19 




ADD 


HL , DE 


AD80 


18 FA 




JR 


DONUM2 



mn& fm 269 



AD82 


CB 


3C 


DONUM 3 : 


SRL 


H 


AD84 


CB 


ID 




RR 


L 


AD86 


CB 


3C 




SRL 


H 


AD88 


CB 


ID 




RR 


L 


AD8A 


CB 


3C 




SRL 


H 


AD8C 


CB 


ID 




RR 


L ; HL=HL/8 








HL=OMOTE- >BC , DE = URA->HL 


AD8E 


EB 




DONUM4 : 


EX 


DE , HL 


AD8F 


C9 






RET 










; RETURN 


HL=URA, 


DE=OMOTE 








; L=VALUE , Carry= 


NOTHING ,BC=AUTO I] 








; LAST= * , 


, » THEN 


Acc=FEH 


AD90 


ED 


78 


NUMBER: 


IN 


A, (C) 


AD92 


28 


1A 




JR 


Z.NUM9 ; HIT END 


AD94 


FE 


3A 




CP 


’ : ’ 


AD96 


28 


16 




JR 


Z , NUM9 ; HIT END 


AD98 


CD 


ADB0 


NUM0 : 


CALL 


DIGIT 


AD9B 


D8 






RET 


C ; ERR 








; IKINARI » . ' MO 


i ERROR 


AD9C 


6F 






LD 


L , A 


AD9D 


CD 


ADB0 


NUML : 


CALL 


DIGIT 


ADA0 


38 


0A 




JR 


C , NUM1 


ADA2 


67 






LD 


H, A ; SAVE 


ADA3 


7D 






LD 


A , L 


ADA4 


87 






ADD 


A , A ; 2 


ADA5 


87 






ADD 


A , A ; 4 


ADA6 


85 






ADD 


A , L ; 5 


ADA7 


87 






ADD 


A , A ; 1 0 


ADA8 


84 






ADD 


A , H 


ADA9 


6F 






LD 


L, A 


ADAA 


18 


FI 




JR 


NUML 


ADAC 


B7 




NUM1 : 


OR 


A ; NC 


ADAD 


C9 






RET 




ADAE 


37 




NUM9 : 


SCF 




ADAF 


C9 






RET 




ADB0 


ED 


78 


DIGIT: 


IN 


A, (C) 


ADB2 


FE 


3A 




CP 


»9*+l 


ADB4 


38 


02 




JR 


C , DIGIT1 


ADB6 


37 






SCF 




ADB7 


C9 






RET 




ADB8 


D6 


30 


DIGIT 1 : 


SUB 


i 0 » 


ADBA 


03 






INC 


BC 


ADBB 


D0 






RET 


NC 


ADBC 


FE 


FE 




CP 


* . , - , 0’ 


ADBE 


28 


01 




JR 


Z , DIGIT2 


ADC0 


0B 






DEC 


BC 


ADC 1 


37 




DIGIT2 : 


SCF 




ADC 2 


C9 






RET 




ADC3 


01 


1C00 


WPSG : 


LD 


BC, 1C00H 


ADC6 


ED 


79 




OUT 


(C) , A 


ADC8 


05 






DEC 


B 


ADC9 


ED 


51 




OUT 


(C) ,D 


ADCB 


C9 






RET 




ADCC 


01 


1C00 


RPSG : 


LD 


BC, 1C00H 


ADCF 


ED 


79 




OUT 


(C) , A 


ADD1 


05 






DEC 


B 


ADD2 


ED 


50 




IN 


D, (C) 


ADD4 


C9 






RET 




ADD5 


C5 




WOPM : 


PUSH 


BC 


ADD6 


01 


0700 




LD 


BC , 0700H 


ADD9 


ED 


79 




OUT 


(C) , A 


ADDB 


0C 






INC 


C 


ADDC 


ED 


51 




OUT 


(C) ,D 


ADDE 


Cl 






POP 


BC 


ADDF 


C9 






RET 




ADE0 


D5 




RCTR : 


PUSH 


DE 


ADE 1 


CB 


23 




SLA 


E 


ADE3 


CB 


23 




SLA 


E 


ADE5 


21 


AEC9 




LD 


HL , PACK 


ADE8 


19 






ADD 


HL , DE 



tm\z\hh xi 



ADE9 


4E 




LD 


C, (HL) 




ADEA 


23 




INC 


HL 




ADEB 


46 




LD 


B, (HL) 


; BC=OMOTE 


ADEC 


23 




INC 


HL 




ADED 


5E 




LD 


E, (HL) 




ADEE 


23 




INC 


HL 




ADEF 


56 




LD 


D, (HL) 


; DE=URA 


ADF0 


EB 




EX 


DE , HL 


; HL=URA 


ADF1 


0B 




DEC 


BC 




ADF2 


2B 




DEC 


HL 




ADF3 


D 1 




POP 


DE 




ADF4 


C5 




PUSH 


BC 




ADF5 


E5 




PUSH 


HL 




ADF6 


CD ADFC 




CALL 


WCTR 




ADF9 


El 




POP 


HL 




ADFA 


Cl 




POP 


BC 




ADFB 


C9 




RET 






ADFC 


CB 23 


WCTR : 


SLA 


E 




ADFE 


CB 23 




SLA 


E 




AE00 


E5 




PUSH 


HL 




AE0 1 


21 AEC9 




LD 


HL , PACK 




AE04 


19 




ADD 


HL , DE 




AE05 


71 




LD 


(HL) ,C 




AE06 


23 




INC 


HL 




AE07 


70 




LD 


(HL) , B 


; BC=OMOTE 


AE08 


23 




INC 


HL 




AE09 


Cl 




POP 


BC 


; BC=URA 


AE0A 


71 




LD 


(HL) ,C 




AE0B 


23 




INC 


HL 




AE0C 


70 




LD 


(HL) ,B 




AE0D 


C9 




RET 






AE0E 


21 AE7C 


DFLTBL : 


LD 


HL , DFLW 




AE1 1 


CB 2 3 




SLA 


E 




AE1 3 


CB 23 




SLA 


E 




AE 1 5 


19 




ADD 


HL , DE 




AE16 


C9 


; 


RET 


: VAR AREA 








l 






AE1 7 




TMPV: 


DS 


1 




AE 1 8 


1 2D0 


PSGFRQ : 


DW 


12D0H 


; Ab=G# 


AE1A 


1 1C2 




DW 


11C2H 


; A 


AE 1C 


10C4 




DW 


10C4H 


; A# 


AE1E 


0FD2 




DW 


0FD2H 


;b 


AE20 


0EEE 




DW 


0EEEH 


;B#=(C) 


AE22 


1DDE 




DW 


1DDEH 


;c 


AE24 


1C2E 




DW 


1C2EH 


;c# 


AE26 


1A9A 




DW 


1A9AH 


;d 


AE28 


191C 




DW 


191CH 


;D# 


AE2A 


1 7B4 




DW 


17B4H 


;e 


AE2C 


165E 




DW 


165EH 


;E#=F 


AE2E 


165E 




DW 


165EH 


; F 


AE30 


1 5 IE 




DW 


151EH 


; F# 


AE32 


1 3EE 




DW 


13EEH 


;g 


AE34 


1 2D0 




DW 


12D0H 


;G# 


AE36 


0800 0400 


LENTBL : 


DW 


2048,1024,512,341,256 


AE3A 


0200 0155 










AE3E 


0100 










AE40 


00CC 00AA 




DW 


204,170, 


146 , 128, 113 


AE44 


0092 0080 










AE48 


0071 










AE4A 


0066 005D 




DW 


102,93,85,78,73 


AE4E 


0055 004E 










AE52 


0049 










AE54 


0044 0040 




DW 


68,64,60 


,56,53 


AE58 


003C 0038 










AE5C 


0035 










AE5E 


0033 0030 




DW 


51,48,46 


,44,42 


AE62 


002E 002C 










AE66 


002A 










AE68 


0028 0027 




DW 


40,39,37 


,36,35 


AE6C 


0025 0024 










AE70 


0023 










AE7 2 


0022 0021 




DW 


34,33,32 




AE7 6 


0020 











; OCT , VOL , Q , LEN ::4,100(12),8,4 



FMtl 27 1 



AE78 


04 


64 08 04 


DFLDMY 


: DB 


4,100,8,4 


AE7C 


04 


64 08 04 


DFLW : 


DB 


4,100,8,4 ; 0 


AE80 


04 


64 08 04 






DB 


4,100,8,4 ; 1 


AE84 


04 


64 08 04 






DB 


4,100,8,4 *, 2 


AE88 


04 


64 08 04 






DB 


4,100,8,4 ; 3 


AE8C 


04 


64 08 04 






DB 


4,100,8,4 ; 4 


AE90 


04 


64 08 04 






DB 


4,100,8,4 ; 5 


AE94 


04 


64 08 04 






DB 


4,100,8,4 ; 6 


AE98 


04 


64 08 04 






DB 


4,100,8,4 ; 7 


AE9C 


04 


0C 08 04 






DB 


4,12,8,4 ; 8 


AEA0 


04 


0C 08 04 






DB 


4,12,8,4 ; 9 


AEA4 


04 


0C 08 04 






DB 


4,12,8,4 ; 10 


AEA8 






ACTF : 


DS 


11 


AEB3 






PC: 


DS 


22 


AEC9 






I 


5 ACK : 


DS 


44 










DATA = 


B000H-B72FH (10*40+36*40) 


AEF5 


7B 




INST0 : 


LD 


A , E 


AEF6 


FE 


08 






CP 


8 


AEF8 


D2 


AB39 






JP 


NC , ACT8 ; PSG 


AEFB 


D5 








PUSH 


DE ; SAVE CH NO. 


AEFC 


CD 


AD90 






CALL 


NUMBER 


AEFF 


38 


48 






JR 


C , INST9 


AF0 1 


2D 








DEC 


L ; L=L- 1 


AF02 


7D 








LD 


A , L 


AF03 


FE 


28 






CP 


40 


AF05 


30 


42 






JR 


NC, INST9 


AF07 


D1 








POP 


DE 


AF08 


D5 








PUSH 


DE 


AF09 


21 


AFEC 






LD 


HL, INSTN 


AF0C 


19 








ADD 


HL , DE 


AF0D 


77 








LD 


( HL ) , A ; SAVE INSTN 


AF0E 


6F 








LD 


L , A 


AF0F 


CD 


AFC8 






CALL 


GETVTD 










20,38 


, (40,60, 


80 , A0 , C0 , E0 ) *4 , ( UD+KSL 










KTRNS 


, 1 8H , PMD 


, AMD , 1BH , DLY+SYNC 


AF12 


D1 








POP 


DE 


AF1 3 


C5 








PUSH 


BC ; SAVE PC 


AF1 4 


E5 








PUSH 


HL ; SAVE ADDR. 


AF1 5 


3E 


20 






LD 


A, 20H 


AF 1 7 


83 








ADD 


A , E 


AF 1 8 


CD 


AF4D 






CALL 


WOPMX ; R/L/FB/ALG 


AF1B 


C6 


10 






ADD 


A, 10H 


AF1D 


16 


14 






LD 


D, 14H 


AF1F 


CD 


ADD5 






CALL 


WOPM ; KF 


AF22 


C6 


08 






ADD 


A , 08H 


AF24 


CD 


AF4D 






CALL 


WOPMX ; PMS/AMS 


AF27 


IE 


06 






LD 


E , 6 


AF29 


CD 


AFD7 


INST1 : 


CALL 


WOPMXX 


AF2C 


ID 








DEC 


E 


AF2D 


20 


FA 






JR 


NZ , INST1 ' 


AF2F 


11 


0005 






LD 


DE, 5 


AF32 


19 








ADD 


HL , DE ; HL=HL+5 


AF33 


3E 


18 






LD 


A, 18H 


AF35 


CD 


AF4D 






CALL 


WOPMX ; LFRQ 


AF38 


3C 








INC 


A ; A=19H 


AF39 


CD 


AF4D 






CALL 


WOPMX ; PMD 


AF3C 


CD 


AF4D 






CALL 


WOPMX ; AMD 


AF3F 


3E 


IB 






LD 


A, 1BH 


AF 4 1 


CD 


AF4D 






CALL 


WOPMX *, FRM 


AF4 4 


El 








POP 


HL 


AF4 5 


Cl 








POP 


BC 


AF46 


C3 


AB39 






JP 


ACT8 


AF49 


D 1 




INST9 : 


POP 


DE ; DROP 


AF4A 


C3 


AB39 






JP 


ACT8 


AF4D 


56 




WOPMX : 


LD 


D, (HL) 


AF4E 


23 








INC 


HL 


AF4F 


C3 


ADD5 






JP 


WOPM 


AF52 


F5 




OPMV0 : 


PUSH 


AF ; A=CODE 


AF53 


D5 








PUSH 


DE ; DE=CH NO. 



272 XI 



AF54 


D5 




PUSH 


DE 




AF55 


CD AE0E 




CALL 


DFLTBL 




AF58 


23 




INC 


HL 




AF59 


7E 




LD 


A, (HL) 


; OVQL 


AF5A 


D1 




POP 


DE 




AF5B 


F5 




PUSH 


AF 


; SAVE V 


AF5C 


21 AFEC 




LD 


HL , INSTN 




AF5F 


19 




ADD 


HL , DE 




AF60 


6E 




LD 


L, (HL) 


; L=In 


AF6 1 


CD AFC8 


* 


CALL 


GETVTD 


; GET ADDR. 


AF64 


7E 




LD 


A, (HL) 




AF6 5 


E6 07 




AND 


7 


; GET ALG 


AF67 


0E 07 




LD 


C , 0 1 1 IB 


; BIT3=0 


AF69 


FE 04 




CP 


4 




AF8B 


38 0B 




JR 


C , 0PMV1 


; ALG0-3 


AF6D 


CB 89 




RES 


l.C 


; 0P2=CRY 


AF6F 


28 07 




JR 


Z , 0PMV1 




AF7 1 


CB 91 




RES 


2 , C 


; 0P3=CRY 


AF7 3 


FE 07 




CP 


7 




AF7 5 


20 01 




JR 


NZ.OPMVl 




AF77 


0D 




DEC 


C 


; BIT0=0 


AF7 8 


11 0006 


0PMV1 : 


LD 


DE, 6 


; C=MASK 


AF7B 


19 




ADD 


HL , DE 


; POINT V 


AF7C 


11 AFC4 




LD 


DE , V4 




AF7F 


06 04 




LD 


B , 4 




AF8 1 


7E 


OPMV2 : 


LD 


A, (HL) 




AF82 


CB 09 




RRC 


C 




AF84 


30 02 




JR 


NC , 0PMV3 




AF86 


F6 80 




OR 


80H 


; MODULE MARK 


AF88 


12 


OPMV3 : 


LD 


(DE) ,A 




AF89 


23 




INC 


HL 




AF8A 


13 




INC 


DE 




AF8B 


10 F4 




DJNZ 


0PMV2 




AF8D 


06 04 


* 


LD 


B , 4 




AF8F 


EB 




EX 


DE , HL 




AF90 


2B 




DEC 


HL 


; HL=V4+3 


AF9 1 


3E 7F 




LD 


A , 07FH 




AF93 


BE 


OPM V 4 : 


CP 


(HL) 




AF94 


38 01 




JR 


C , 0PMV5 








; A > = 


(HL) 






AF96 


7E 




LD 


A, (HL) 




AF97 


2B 


0PMV5 : 


DEC 


HL 




AF98 


10 F9 




DJNZ 


0PMV4 








; A=MIN 


TL 










; ADD TO ALL CRY 


* 127-V-A 


’ , MIN=0 , MAX=' 


AF9A 


Cl 




POP 


BC 


; B=V 


AF9B 


ED 44 




NEG 






AF9D 


90 




SUB 


B 




AF9E 


C6 7F 




ADD 


A, 127 




AFA0 


4F 




LD 


C, A 




AFA1 


D1 


* 


POP 


DE 




AFA2 


D5 




PUSH 


DE ; 


E=CH NO. 


AFA3 


3E 58 




LD 


A , 60H-8 




AFA5 


83 




ADD 


A , E 




AFA6 


F5 




PUSH 


AF ; 


SAVE REG#-8 


AFA7 


23 


’ 


INC 


HL ; 


HL=V4 


AFA8 


E5 




PUSH 


HL ; 


SAVE V4 


AFA9 


06 04 




LD 


B, 4 




AFAB 


7E 


0PMV6 : 


LD 


A, (HL) 




AFAC 


B7 




OR 


A 




AFAD 


FA AFB6 




JP 


M , 0PMV7 ; 


MUDULE 


AFB0 


81 




ADD 


A , C 




AFB1 


F2 AFB6 




JP 


P.0PMV7 ; 


0-7FH 


AFB4 


3E 7F 




LD 


A , 7FH ; 


MAX=7FH 


AFB6 


E6 7F 


0PMV7 : 


AND 


7FH 




AFB8 


77 




LD 


(HL) , A 




AFB9 


23 




INC 


HL 




AFBA 


10 EF 




DJNZ 


0PMV6 




AFBC 


El 


’ 


POP 


HL ; 


HL=V4 


AFBD 


FI 




POP 


AF ; 


A=REG#-8 


AFBE 


CD AFD7 




CALL 


WOPMXX 




AFC1 


D1 


’ 


POP 


DE 




AFC2 


FI 




POP 


AF 




AFC3 


C9 




RET 
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AFC 4 



AFC8 


26 


00 




AFCA 


29 






AFCB 


29 






AFCC 


54 






AFCD 


5D 






AFCE 


29 






AFCF 


29 






AFD0 


29 






AFD1 


19 






AFD2 


11 


B190 




AFD5 


19 






AFD6 


C9 






AFD7 


C6 


08 




AFD9 


CD 


AF4D 




AFDC 


C6 


10 




AFDE 


CD 


AF4D 




AFE1 


D6 


08 




AFE3 


CD 


AF4D 




AFE6 


C6 


10 




AFE8 


CD 


AF4D 




AFEB 


C9 






AFEC 


00 


00 00 


00 


AFF0 


01 


01 01 


01 



V4 : 


DS 


4 




GETVTD : 


LD 


H , 0 






ADD 


HL.HL 


;2 




ADD 


HL.HL 


; 4 




LD 


D,H 






LD 


E , L 


; COPY 




ADD 


HL , HL 


;8 




ADD 


HL , HL 


; 16 




ADD 


HL , HL 


; 32 




ADD 


HL.DE 


; 36 




LD 


DE , 0B190H 




ADD 


HL , DE 


; GET VTD 




RET 






WOPMXX : 


ADD 


A , 08H 






CALL 


WOPMX 






ADD 


A, 10H 






CALL 


WOPMX 






SUB 


08H 






CALL 


WOPMX 






ADD 


A, 10H 






CALL 

RET 


WOPMX 




INSTN: 


DB 


0 , 0 , 0 , 0 






DB 


1,1, 1,1 




* 


END 
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A8B0 


21 


00 


A9 


22 


E3 


2D 


22 


11 


2F 


A8B8 


2E 


22 


13 


2E 


C9 


4E 


41 


54 


3D 


A8C0 


48 


41 


4E 


49 


45 


4C 


20 


53 


24 


A8C8 


54 


49 


54 


54 


1A 


1A 


1A 


1A 


AD 


A8D0 


1A 


1A 


1A 


1A 


1A 


1A 


1A 


1A 


D0 


A8D8 


1A 


1A 


1A 


1A 


1A 


1A 


1A 


1A 


D0 


A8E0 


1A 


1A 


1A 


1A 


1A 


1A 


1A 


1A 


D0 


A8E8 


1A 


1A 


1A 


1A 


1A 


1A 


1A 


1A 


D0 


A8F0 


1A 


1A 


1A 


1A 


1A 


1A 


1A 


1A 


D0 


A8F8 


1A 


1A 


1A 


1A 


1A 


1A 


1A 


1A 


D0 


A900 


CD 


D 1 


7F 


3A 


DB 


A5 


E5 


EB 


A7 


A908 


FE 


03 


28 


72 


CD 


36 


54 


CD 


BF 


A910 


AF 


5B 


7C 


B5 


20 


4C 


21 


01 


C9 


A918 


40 


22 


D4 


A9 


22 


D6 


A9 


2B 


AB 


A920 


22 


D2 


A9 


44 


4D 


AF 


ED 


79 


43 


A928 


3E 


IE 


32 


17 


AE 


21 


78 


AE 


9 A 


SUM: 


Al 


89 


CC 


EE 


8C 


4 A 


Al 


79 59F4 


A930 


11 


7C 


AE 


01 


24 


00 


ED 


B0 


FD 


A938 


23 


36 


0C 


2B 


01 


08 


00 


ED 


86 


A940 


B0 


EB 


06 


0B 


36 


00 


23 


10 


15 


A948 


FB 


F3 


3E 


C3 


32 


3C 


01 


21 


7F 


A950 


64 


A9 


22 


3D 


01 


CD 


3C 


01 


77 


A958 


CD 


D8 


A9 


21 


32 


AA 


22 


5E 


CB 


A960 


00 


FB 


El 


C9 


01 


07 


07 


3E 


F2 


A968 


03 


ED 


79 


16 


07 


3E 


08 


CD 


99 


A970 


D5 


AD 


15 


20 


FA 


CD 


D5 


AD 


00 


A97 8 


01 


00 


1C 


C3 


3F 


01 


CD 


C3 


B0 


A980 


7F 


B7 


28 


03 


CD 


9F 


A9 


El 


57 


A988 


7E 


D6 


3B 


23 


C8 


2B 


ED 


4B 


DD 


A990 


D6 


A9 


AF 


ED 


79 


03 


ED 


43 


C7 


A998 


D6 


A9 


ED 


43 


D4 


A9 


C9 


ED 


E2 


A9A0 


4B 


D6 


A9 


2A 


D4 


A9 


B7 


ED 


15 


A9A8 


42 


20 


05 


2E 


3A 


ED 


69 


03 


28 


SUM: 


IF 


7B 


01 


C8 


FI 


DA 


8C 


F 4 7EDA 



A9B0 


6F 


1A 


FE 


61 


38 


06 


FE 


7B 


: 9F 


A9B8 


30 


02 


C6 


E0 


ED 


79 


03 


13 


: 54 


A9C0 


78 


B 1 


28 


08 


2D 


20 


EA 


ED 


: 7D 


A9C8 


43 


D6 


A9 


C9 


CD 


3C 


01 


C3 


: 58 


A9D0 


27 


20 


00 


40 


00 


40 


00 


40 


: 07 


A9D8 


01 


04 


07 


3E 


27 


ED 


79 


3E 


: 15 


A9E0 


01 


ED 


79 


3E 


58 


ED 


79 


01 


: 64 


A9E8 


07 


07 


3E 


C7 


ED 


79 


3A 


17 


: CA 


A9F0 


AE 


ED 


79 


C9 


0A 


09 


49 


4E 


: 87 


A9F8 


43 


09 


44 


45 


0D 


0A 


09 


44 


: 39 


AA00 


4 A 


4E 


5A 


09 


4F 


50 


4D 


56 


: 3D 


AA08 


32 


CA 


03 


FF 


03 


00 


00 


00 


: 01 


AA1 0 


00 


00 


00 


00 


00 


00 


00 


00 


: 00 


AA1 8 


00 


00 


00 


00 


00 


00 


00 


00 


: 00 


AA20 


00 


00 


00 


00 


00 


00 


00 


CA 


: CA 


AA28 


56 


D9 


00 


00 


00 


00 


C3 


BE 


: B0 


SUM: 


4D 


A2 


6D 


AB 


F 4 


D 1 


7 A 


44 


C55D 


AA30 


39 


04 


F3 


ED 


73 


30 


AA 


31 


: 9B 


AA38 


30 


AA 


F5 


C5 


D5 


E5 


21 


A8 


: 17 


AA40 


AE 


06 


0B 


AF 


B6 


23 


20 


4 A 


: B1 


AA48 


10 


FA 


ED 


4B 


D2 


A9 


2A 


D4 


: BB 


AA50 


A9 


2B 


B7 


ED 


42 


28 


51 


ED 


: 20 


AA58 


78 


03 


28 


0C 


ED 


78 


03 


20 


: 37 


AA60 


FB 


0B 


ED 


43 


D2 


A9 


18 


E6 


: AF 


AA68 


ED 


43 


D2 


A9 


21 


A8 


AE 


E5 


: 07 


AA70 


21 


B3 


AE 


16 


00 


ED 


78 


28 


: 25 


AA7 8 


05 


03 


FE 


3 A 


20 


F7 


B7 


28 


: 36 


AA80 


02 


3E 


01 


E3 


77 


23 


E3 


71 


: 12 


AA88 


23 


70 


23 


14 


7 A 


FE 


0B 


38 


: 85 


AA90 


E4 


El 


11 


00 


00 


21 


A8 


AE 


: 4D 


AA98 


D5 


E5 


7E 


B7 


C4 


B3 


AA 


El 


: FI 


AAA0 


D1 


23 


1C 


7B 


FE 


0B 


20 


F0 


: A 4 


AAA8 


El 


D 1 


Cl 


FI 


ED 


7B 


30 


AA 


: A6 


SUM: 


E6 


48 


BA 


FB 


B2 


31 


EE 


FI 


4 5E6 
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AAB0 


FB 


ED 


4D 


E5 


D5 


F2 


CA 


AA 




: 55 


AAB8 


CD 


E0 


AD 


78 


B1 


D1 


E5 


CC 




: 05 


AAC0 


DB 


AC 


El 


7C 


B5 


El 


C0 


36 




: 70 


A AC 8 


01 


C9 


CB 


23 


21 


B3 


AE 


19 




: 53 


AAD0 


4E 


23 


46 


ED 


78 


28 


04 


FE 




: 46 


AAD8 


3A 


20 


08 


D 1 


70 


2B 


71 


El 




: 20 


AAE0 


36 


00 


C9 


D1 


ED 


78 


28 


F4 




: 51 


AAE8 


FE 


3A 


28 


F0 


D5 


E5 


CD 


FE 




: D5 


AAF0 


AA 


El 


28 


E7 


D 1 


38 


ED 


70 




: 00 


AAF8 


2B 


71 


El 


36 


80 


C9 


ED 


78 




r 61 


AB00 


03 


FE 


41 


38 


2A 


FE 


48 


30 




: 1A 


AB08 


34 


CD 


1A 


AB 


C5 


D5 


CD 


67 




: 94 


AB1 0 


AC 


D1 


Cl 


CD 


ED 


AC 


3E 


01 




: E3 


AB1 8 


B7 


C9 


D6 


41 


87 


6F 


ED 


78 




: F2 


AB20 


03 


FE 


2D 


C8 


2C 


2C 


FE 


2B 




: 77 


AB28 


C8 


FE 


23 


C8 


2D 


0B 


C9 


FE 




: B0 


SUM: 


9A 


72 


30 


19 


13 


2D 


68 


B7 


AC0B 


AB30 


3E 


CA 


21 


AC 


FE 


3C 


CA 


21 




FA 


AB38 


AC 


7F 


B7 


37 


C9 


FE 


4E 


28 




56 


AB40 


51 


FE 


52 


28 


CE 


FE 


49 


CA 




A8 


AB48 


F5 


AE 


FE 


59 


CA 


F3 


AB 


FE 




60 


AB50 


57 


CA 


DD 


AB 


FE 


54 


CA 


33 




F8 


AB58 


AC 


21 


00 


00 


FE 


4F 


28 


0F 




51 


AB60 


2C 


FE 


56 


28 


0A 


2C 


FE 


51 




2D 


AB68 


28 


05 


2C 


FE 


4C 


20 


CA 


E5 




72 


AB70 


CD 


0E 


AE 


D1 


19 


E5 


F5 


CD 




1A 


AB7 8 


90 


AD 


30 


04 


FI 


D1 


18 


B9 




04 


AB80 


67 


FI 


D 1 


EB 


73 


FE 


4C 


20 




FI 


AB88 


B0 


7A 


FE 


02 


20 


AB 


CB 


FE 




BE 


AB90 


18 


A7 


D5 


CD 


90 


AD 


38 


3F 




15 


AB98 


7D 


FE 


60 


30 


3A 


IE 


00 


D6 




39 


ABA0 


0C 


38 


03 


1C 


18 


F9 


C6 


11 




4B 


ABA8 


FE 


0A 


38 


07 


3C 


FE 


0F 


38 




C8 


SUM: 


9A 


F0 


A4 


17 


6C 


3B 


F7 


8B 


1 1 3D 


ABB0 


02 


D6 


0E 


57 


1C 


EB 


D1 


D5 




EA 


ABB8 


E5 


CD 


0E 


AE 


22 


DB 


AB 


D1 




E7 


ABC0 


7E 


73 


6A 


D1 


F5 


C5 


D5 


CD 




88 


ABC8 


67 


AC 


D 1 


Cl 


CD 


ED 


AC 


FI 




FC 


ABD0 


2A 


DB 


AB 


77 


C3 


16 


AB 


D1 




7C 


ABD8 


C3 


39 


AB 


0A 


53 


D5 


CD 


ED 




93 


ABE0 


AC 


D 1 


D5 


C5 


CD 


E0 


AD 


23 




94 


ABE8 


01 


FF 


FF 


CD 


FC 


AD 


Cl 


D1 




07 


ABF0 


C3 


16 


AB 


D5 


CD 


90 


AD 


38 




9B 


ABF8 


24 


ED 


78 


FE 


2C 


20 


IE 


03 




F4 


AC00 


E5 


CD 


90 


AD 


7D 


El 


38 


15 




9A 


AC08 


D1 


C5 


57 


7B 


FE 


08 


7D 


38 




23 


AC 1 0 


07 


CD 


C3 


AD 


Cl 


C3 


39 


AB 




AC 


AC1 8 


CD 


D5 


AD 


18 


F7 


D1 


C3 


39 




2B 


AC 20 


AB 


D6 


3D 


CD 


0E 


AE 


86 


CA 




97 


AC 2 8 


39 


AB 


FE 


09 


D2 


39 


AB 


77 




18 


SUM: 


BB 


5E 


36 


40 


EB 


04 


90 


C3 


540F 


AC30 


C3 


39 


AB 


CD 


90 


AD 


DA 


39 




C4 


AC 3 8 


AB 


7D 


FE 


IE 


DA 


39 


AB 


C5 




C7 


AC40 


4D 


06 


00 


11 


4E 


0E 


21 


00 




El 


AC48 


00 


3E 


10 


CB 


23 


CB 


12 


ED 




06 


AC 50 


6 A 


B7 


ED 


42 


30 


02 


09 


ID 




A8 


AC58 


1C 


3D 


20 


EF 


7B 


32 


17 


AE 




DA 


AC60 


CD 


E7 


A9 


Cl 


C3 


39 


AB 


7B 




40 


AC68 


FE 


08 


38 


3A 


7D 


D5 


CD 


0E 




A5 


AC 7 0 


AE 


46 


23 


4E 


87 


5F 


21 


18 




84 


AC 7 8 


AE 


19 


56 


23 


5E 


CB 


3B 


CB 




6F 


AC80 


1A 


10 


FA 


El 


61 


7D 


D6 


08 




Cl 


AC88 


87 


CD 


C3 


AD 


3C 


53 


CD 


C3 




E3 



AC 90 


AD 


7D 


54 


CD 


C3 


AD 


3E 


07 


: 00 


AC98 


16 


F8 


CD 


C3 


AD 


3E 


0D 


CD 


: 63 


ACA0 


CC 


AD 


CD 


C3 


AD 


C9 


7D 


C6 


: C2 


ACA8 


17 


FE 


IB 


38 


0B 


D6 


10 


FE 


: 57 


SUM: 


AF 


39 


E6 


7D 


70 


85 


27 


85 


4F0B 


ACB0 


0F 


38 


05 


FE 


12 


28 


01 


3C 


Cl 


ACB8 


D5 


CD 


52 


AF 


F5 


CD 


0E 


AE 


21 


ACC0 


7E 


3D 


87 


87 


87 


87 


57 


FI 


IF 


ACC8 


82 


57 


El 


7D 


C6 


28 


CD 


D5 


C7 


ACD0 


AD 


7D 


F6 


78 


57 


3E 


08 


CD 


02 


ACD8 


D5 


AD 


C9 


7B 


FE 


08 


38 


06 


0A 


ACE0 


16 


00 


CD 


C3 


AD 


C9 


53 


3E 


AD 


ACE8 


08 


CD 


D5 


AD 


C9 


D5 


CD 


04 


C6 


ACF0 


AD 


2B 


IB 


ED 


53 


02 


AD 


D1 


B3 


ACF8 


C5 


ED 


4B 


02 


AD 


CD 


FC 


AD 


22 


AD00 


Cl 


C9 


4F 


20 


CD 


0E 


AE 


23 


A5 


AD08 


23 


56 


23 


5E 


D5 


ED 


78 


FE 


32 


AD 10 


40 


20 


21 


03 


11 


00 


00 


CD 


62 


ADI 8 


B0 


AD 


30 


05 


11 


01 


00 


18 


BC 


AD 20 


41 


5F 


CD 


B0 


AD 


38 


3B 


62 


9F 


AD28 


6B 


29 


29 


19 


29 


5F 


16 


00 


74 


SUM: 


76 


1C 


3F 


52 


B9 


EA 


B3 


AB 3973 


AD30 


19 


EB 


18 


EE 


CD 


90 


AD 


30 


44 


AD3 8 


09 


6B 


CB 


7D 


28 


04 


CB 


BD 


70 


AD40 


3E 


FE 


F5 


7D 


FE 


21 


38 


02 


07 


AD48 


2E 


20 


FI 


26 


00 


CB 


25 


11 


66 


AD 50 


36 


AE 


19 


5E 


23 


56 


FE 


FE 


D0 


AD58 


20 


08 


62 


6B 


CB 


3A 


CB 


IB 


E0 


AD60 


19 


EB 


62 


6B 


FI 


E5 


67 


ED 


FB 


AD68 


78 


FE 


26 


7C 


El 


20 


0D 


03 


29 


AD 7 0 


ED 


78 


FE 


2B 


20 


18 


03 


21 


EA 


AD7 8 


FF 


FF 


18 


12 


3D 


28 


03 


19 


A9 


AD80 


18 


FA 


CB 


3C 


CB 


ID 


CB 


3C 


08 


AD88 


CB 


ID 


CB 


3C 


CB 


ID 


EB 


C9 


8B 


AD90 


ED 


78 


28 


1A 


FE 


3A 


28 


16 


ID 


AD9 8 


CD 


B0 


AD 


D8 


6F 


CD 


B0 


AD 


9B 


ADA0 


38 


0A 


67 


7D 


87 


87 


85 


87 


40 


ADA8 


84 


6F 


18 


FI 


B7 


C9 


37 


C9 


7C 


SUM: 


BA 


42 


CC 


D3 


51 


E6 


62 


5B A267 


ADB0 


ED 


78 


FE 


3A 


38 


02 


37 


C9 


D7 


ADB8 


D6 


30 


03 


D0 


FE 


FE 


28 


01 


FE 


ADC0 


0B 


37 


C9 


01 


00 


1C 


ED 


79 


8E 


ADC8 


05 


ED 


51 


C9 


01 


00 


1C 


ED 


16 


ADD0 


79 


05 


ED 


50 


C9 


C5 


01 


00 


4A 


ADD8 


07 


ED 


79 


0C 


ED 


51 


Cl 


C9 


41 


ADE0 


D5 


CB 


23 


CB 


23 


21 


C9 


AE 


49 


ADE8 


19 


4E 


23 


46 


23 


5E 


23 


56 


CA 


ADF0 


EB 


0B 


2B 


D1 


C5 


E5 


CD 


FC 


65 


ADF8 


AD 


El 


Cl 


C9 


CB 


23 


CB 


23 


F4 


AE00 


E5 


21 


C9 


AE 


19 


71 


23 


70 


9 A 


AE08 


23 


Cl 


71 


23 


70 


C9 


21 


7C 


4E 


AE 1 0 


AE 


CB 


23 


CB 


23 


19 


C9 


33 


9F 


AE 1 8 


D0 


12 


C2 


11 


C4 


10 


D2 


0F 


6A 


AE20 


EE 


0E 


DE 


ID 


2E 


1C 


9A 


1A 


F5 


AE28 


1C 


19 


B4 


17 


5E 


16 


5E 


16 


E8 


SUM: 


69 


A9 


64 


BC 


BF 


4E 


85 


7 A 0F3 7 


AE30 


IE 


15 


EE 


13 


D0 


12 


00 


08 : 


IE 


AE38 


00 


04 


00 


02 


55 


01 


00 


01 : 


5D 


AE40 


CC 


00 


AA 


00 


92 


00 


80 


00 : 


88 


AE48 


71 


00 


66 


00 


5D 


00 


55 


00 : 


89 


AE50 


4E 


00 


49 


00 


44 


00 


40 


00 : 


IB 
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AE58 


3C 


00 


38 


00 


35 


00 


33 


00 


DC 




AF30 


05 


00 


19 


3E 


18 


CD 


4D 


AF 


3D 


AE60 


30 


00 


2E 


00 


2C 


00 


2A 


00 


B4 




AF38 


3C 


CD 


4D 


AF 


CD 


4D 


AF 


3E 


0C 


AE68 


28 


00 


27 


00 


25 


00 


24 


00 


98 




AF40 


IB 


CD 


4D 


AF 


El 


Cl 


C3 


39 


82 


AE7 0 


23 


00 


22 


00 


21 


00 


20 


00 


86 




AF 4 8 


AB 


D1 


C3 


39 


AB 


56 


23 


C3 


5F 


AE7 8 


04 


64 


08 


04 


04 


64 


08 


04 


E8 




AF50 


D5 


AD 


F5 


D5 


D5 


CD 


0E 


AE 


AA 


AE80 


04 


64 


08 


04 


04 


64 


08 


04 


E8 




AF58 


23 


7E 


D1 


F5 


21 


EC 


AF 


19 


3C 


AE88 


04 


64 


08 


04 


04 


64 


08 


04 


E8 




AF60 


6E 


CD 


C8 


AF 


7E 


E6 


07 


0E 


2B 


AE90 


04 


64 


08 


04 


04 


64 


08 


04 


E8 




AF68 


07 


FE 


04 


38 


0B 


CB 


89 


28 


C8 


AE98 


04 


64 


08 


04 


04 


0C 


08 


04 


90 




AF7 0 


07 


CB 


91 


FE 


07 


20 


01 


0D 


96 


AEA0 


04 


0C 


08 


04 


04 


0C 


08 


04 


38 




AF7 8 


11 


06 


00 


19 


11 


C4 


AF 


06 


BA 


AEA8 


09 


4C 


44 


09 


42 


43 


2C 


43 


96 




AF80 


04 


7E 


CB 


09 


30 


02 


F6 


80 


FE 
























AF88 


12 


23 


13 


10 


F4 


06 


04 


EB 


41 


SUM: 


81 


65 


6A 


36 


59 


FE 


12 


64 A752 




AF90 


2B 


3E 


7F 


BE 


38 


01 


7E 


2B 


88 
























AF98 


10 


F9 


Cl 


ED 


44 


90 


C6 


7F 


D0 


AEB0 


54 


43 


2B 


33 


0D 


0A 


09 


4C 


61 




AFA0 


4F 


D1 


D5 


3E 


58 


83 


F5 


23 


26 


AEB8 


44 


09 


41 


2C 


33 


0D 


0A 


09 


0D 




AFA8 


E5 


06 


04 


7E 


B7 


FA 


B6 


AF 


83 


AEC0 


4F 


55 


54 


09 


28 


43 


29 


2C 


Cl 
























AEC8 


41 


09 


3B 


52 


45 


53 


45 


54 


08 




SUM: 


11 


El 


90 


ID 


B7 


95 


C8 


E0 7 4FD 


AED0 


20 


43 


54 


43 


0D 


0A 


3B 


0D 


59 
























AED8 


0A 


09 


4C 


44 


09 


44 


2C 


37 


53 




AFB0 


81 


F2 


B6 


AF 


3E 


7F 


E6 


7F 


FA 


AEE0 


0D 


0A 


09 


4C 


44 


09 


41 


2C 


26 




AFB8 


77 


23 


10 


EF 


El 


FI 


CD 


D7 


0F 


AEE8 


38 


0D 


0A 


51 


32 


3A 


09 


43 


58 




AFC0 


AF 


D1 


FI 


C9 


0D 


0A 


50 


52 


F3 


AEF0 


41 


4C 


4C 


09 


57 


7B 


FE 


08 


BA 




AFC8 


26 


00 


29 


29 


54 


5D 


29 


29 


7B 


AEF8 


D2 


39 


AB 


D5 


CD 


90 


AD 


38 


CD 




AFD0 


29 


19 


11 


90 


B1 


19 


C9 


C6 


3C 


AF00 


48 


2D 


7D 


FE 


28 


30 


42 


D1 


5B 




AFD8 


08 


CD 


4D 


AF 


C6 


10 


CD 


4D 


Cl 


AF08 


D5 


21 


EC 


AF 


19 


77 


6F 


CD 


5D 




AFE0 


AF 


D6 


08 


CD 


4D 


AF 


C6 


10 


2C 


AF1 0 


C8 


AF 


D 1 


C5 


E5 


3E 


20 


83 


D3 




AFE8 


CD 


4D 


AF 


C9 


00 


00 


00 


00 


92 


AF1 8 


CD 


4D 


AF 


C6 


10 


16 


14 


CD 


96 




AFF0 


01 


01 


01 


01 










04 


AF20 


D5 


AD 


C6 


08 


CD 


4D 


AF 


IE 


37 
























AF28 


06 


CD 


D7 


AF 


ID 


20 


FA 


11 


A1 




SUM: 


7B 


F0 


F6 


66 


44 


AF 


88 


F4 6E00 


SUM: 


37 


56 


2B 


AB 


7D 


B1 


6B 


E5 2AF 1 
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100 


TEMPO 


0 








110 


MUSIC 


"11 VI 27 


Q4 : I 1 VI 27 Q4 : I 1 V127 


Q4 " 


120 


MUSIC 


"T150 04 


L4 C&E&G G2 >G GRE E<RC C&E&G" ; 


130 


MUSIC 


" :03 L4 


RRR 


CGG CGG CGG 


CGG " ; 


140 


MUSIC 


" :03 L4 


RRR 


REE REE REE 


REE " 


150 


MUSIC 


" G2 >G 


GRF 


FR03B B&04D&A 


A2 > A" ; 


160 


MUSIC 


" :02B>GG< B>GG< 


B>GG DGG< 


B>GG" ; 


170 


MUSIC 


" :03RFF 


RFF 


RFF RFF 


RFF" 


180 


MUSIC 


" ARF 


FR03B 


B&04D&A A2> A ARE"; 


190 


MUSIC 


" :02B>GG< B>GG 


DGG CGG CGG" ; 


200 


MUSIC 


" :03RFF 


RFF 


RFF REE REE" 


210 


MUSIC 


" ER04C 


C&E&G >C2 >C CR<G GR04C 


C&E&G" ; 


220 


MUSIC 


" :03CGG 


CGG CGG CGG CGG 


CGG" ; 


230 


MUSIC 


" :03REE 


REE REE REE REE 


REE" 


240 


MUSIC 


" 05C2 >C 


' CR< A ARD D&F&A A1 


F#G" ; 


250 


MUSIC 


" : 03DAA 


DAA ARR D&F&A <B>GG< 


B>GG" ; 


260 


MUSIC 


" :03RFF 


RFF FRR RRR RFF 


RFF" 


270 


MUSIC 


" 06E 1 


C <E E2&D A2&G Cl RR" ; 




280 


MUSIC 


" :03CGG 


CGG A2. 


G2. CGG CRR" 


> 


290 


MUSIC 


" : 03REE 


REE F2 . 


F2. REE" 
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©fflSTfcio MZ-2500 T'fi, 

PLAY " {CDE} 4 " 

iiittliltCiot 3 jSf? (n 'Mffi b Rltg) tm^tz(DTh Ztf, Z.-ihTteZ. ©$£fg 

ttte*.4v> 0 ^fctt^fcvvWiSraHtf' 

g-A(DtB%.Jv&T$>6o 

HuBASIC T* fi 0 *5 32 1 16 frg-ffi, , 9^# lit 

hi MZ-2500 h IH U < , 32^32^^^, 16 *U6 , 

So * is MZ-2500 2 1%<DM£Th S D r.J£WSb 

ti;i;ot^ft(il.5m5o TC4.J 4 #Wft4fc>tf fi„ 



* 11-9 MMLtfUtggfi 



3t =£ 


m m 


C~G, A, B 


*« 


+ . # 


iirPif £■ 4^ et _L 14 S 


- 


*F££4^Tlf£ 


R £ 


tw? (i I 0 — 32) 




1.51Si:t5 


Nx 


SRSa- K xCiS^coflik (x:0~95) 


Qn 


(n : 1-8) 


&(& + ) 


<• ( 5- < ) a) 


L£ 


(« :0-32) 


Ts 


x>*4t!t (s : 30-255) 


On 


(n : 1-8) 


> 


*9 5-1*—r>±.\. fS 


< 


*?9-yik— oTH'S 


Vn 


(n : 0-127 fe L < 14 0-15) 


In 


FM#*<7)Sfe»S: (n : 1-40) 


Yr, d 


l/y77 rlzf — 4" d £ •£ v 1 


W £ 


(i : 1-32) 


SiMtnmSJm 




1) “Cl 6" t£Z 




2) 


“C@ 256" *££ 


>±) C2& + C4 = 


C2. fcfcTfcfc* 



KCffiSSUT* < ©**&»©* HuBASIC Ttt r#CJ 4 t'T'lti©* 

*JS3ibTv»fci« f ;;w rc# j &l<« rc+j -c$>s 0 ^tTots rc-j 4 if 

T*S 0 

~7 T'£>*Uf OPM, 8 ~10 TafetUf PSG OP^^^CtSIiSilS, 

£*, l^^-TbtTOlgST&S**, r>J**-h**5, r<J* 5 T* 5 'S tioTV'So 
Ztlfrb, (43 ixf— J&fa4$MI©Jg5E) E«2 L4oDS)So 

1 ) TC 16 J, [T 120 J, rvi5j ©i?fc, £©i£#cfcH: 0 -255 ©16 

BT*S 

2 ) rc@512j ©J: 9 (c r@J » 3©i#^©iSBIi 0 -65535 T 
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£>-?>o 

o m 11-10 ZFLX^tzti%tz\t\ Zti 
U&^M(DM$<D!*liRT$>6 0 tzbUf TC4J « TC@256J fc UT fc * ofc < [5|U;R$© 
W&©-C£>3 0 J:ot4 3flC»&fe 3*fiF*i!|6 UfcV»«^tt 256 = 85+85 + 

86 ± D , rc@85 C@85 C@86Jfct*Uf iVXDTfcSo £$> 

APa]©If C ^ v^o 



St 11-10 giSwrtlR 




r^ + J ©fl^K T&J k T& + J 

© 2 kist)*s*-5o 



r G4&G4J k*9, Jlfitt TG2J fcEIUTJ&S^Sfcofcoe, fUiil 
i £^©A1f©l£®£fflgLTV>**>o fc©T, 

& = mm<D^n * qs -cri & 1 -** w- 

^tl^TUofeOTfcSo t-fib'-otZo "C. T&+J £gALT3&&f 

itUC i D , 




= rc4&+c4j= rc2j 
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= TC4&D4J 

b C b C& -5 o /i AL D =? f£(D~C> 

TC4&+D4J= TC4&+C4J= TC2J 

/i o />; 0 ~t 2> o ffilll'Ccb <£> T&J b T&+J %> Z. b 'C$ffik\^X^tztz § 

T&;bO"Cl> X h 

0jt5t, TTEMPO OJ zmfi? % Z b 0 TMUSIC 

A$ ; : MUSIC B$J= TMUSIC A$ + B$J ThZ> 0 i®-lr s 3 d 
T, CtlCi D l'*— h** 255 tt> -5 vX &43?i#£lt*£ 

Ctt l CTRL | +[Dlf 

tNiKffftfflB'Cfc § o 8® A,tz & b ISffiT^C ^ £ o 

1) NEW ON &HE000 £Hfi\> 

2) LOADM "MML. BIN" 

3) TVIPJ (Dr-i^tfrb, LOADM "CHOICED VOICE. VTD", &HB000 T, 

FI'S (fc *>3 A VIP Alt 

tUo 

4) CALL &HA8B0 fcSSffo 

: IrP MML L S i ^ C5 5 © tl) I) „ ***K: B000„~B18 F h C(± 

AoTfc D, U X h 11-7 SrUfT-ra fc**i©— c fc**T#So 

Uxhll-7 Hfe^tflSbT: 

100 FOR 1=1 TO 20 : J=I+20 

110 PRINT #0,1, MEM$ ( &HB000+ (I-l)*10,10) , 

120 PRINT #0 , J , MEM$ ( &.HB000 + (J-l)*10,10) 

130 NEXT 



bZb’C,b + A,bW}< - btfftfritzb, &Ctt BASIC Cifi*&A,TL * ^tz^ b Z. 
bT&Ztf, %.&*$> -itz<D\t, "Start up.Bas" 

©ifKifT^tt^ NEW * NEW ON &HB800 CUT, 

£ J: -5 CLfril t b, 

100 LOADM "MML. BIN" 

110 LOADM "CHOICED VOICE. VTD", &HB000 
120 CALL &HA8B0 

b Vi-5/J\£&:7°o ?7 A%t -i XXCffljSLTfe < <fc -5 C LA C btztfTh&a C 9 It 
BASIC ±IS©^D^5A=& RUN ~f Z> tztf~C MML 

iS:©fc«)CH5ig-r**, LOADM "(7 r 4 ;v£)",&HB000 To- F7 F 

<fc 9 Co $ BASIC &(DT$>Z 0 
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#>'£ I+T&3 

* 11-11 K VIPOWfef , -^®7*--ry h*jS7 0 C©*Tf^ofcMML'rtt,30/< 
T F g© KEY TRANSPOSE h 35 /U h g© SYC/LFO DELEY 
Sfc 31, 32, 33, 34 hgCf-^tt, *&© I 

5o ioT&Stf&Sfc&tf, Hfr£ti3 l3-7yF©im/;9,Y3v>K§f^ i 
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%:fr-?tz<DtzTbi, V 7 fc*$?*7© 2 fc& Vtf&2><DtZo 7M!)X 

A 0 ~ 3 •?« 4f * y 7 fi OP4 *f tt, 7>»P7 y X'A 4 T(± OP4 t OP2 <D— O, 7^i'JX 
A 5 , 6t*(i OP4, 0P3, OP2©Ho, 7^rfy XA 7 T k tt't^T*s+7 'J 7 t 
3 C 0 11-5 **, 7^ y 7U47*fcfc*|*®K:*3(ffi0*'*U'- 

nmc y X F 11-4 © AF61 h ~AFBB h -CYA&3 t Wot Vi§©^ t^-5 t, 

1) eN* 1T — 7© TL ©filT^t-f Lt, ft/Js©TL(o£ 9ft*©W*) e*oTV»S 

#+• y 7£Jl^ ) W’3o 

2) lTlotJfc^t y 7 © TL £ V n vy FT7g^£;tt7diC-f 3*r&©M£ D t 
73 (D=127 — V — TL : TL= 0 & 3 V = 127 7^3 >1 1 «:&*)„ 

3) txtO+f 'J7©TLi;DSllDit, OPM 
t V i- 5 Ib?I)3o 

&*»< JI3 9 giAd t 

rtfSfcl*. 
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— f /-$;iJ-:-KC(i CZ-8BV1 t CZ-8BV2 (D—’ltfJbZ) b 
tftio BV1 fc BV2 BV2 Tfi, (A-7h->) BM©^- 

t fc, 'W X t" - K t y ^ n ^ t* t KiSftvifc i t, 320/640 F 

7 h 5 X 77 ^/;^ - fc&if-c&So ZMttbfr 

<, ISrJ: 9 SEiftt k *a„ So$t*i 2 -i, 12-2 

Si** 12- 1 © CZ-8BV1 x-hho ?-?> K l0„i± l/l Biffin- K, 0 

•fey^v^F, X^xVTVuON ©Ho^tE^toT^a t ^ ? £ fCfca. So 
T, 1/4 HHiJ S if 1/16 iHffi© t i* fc, 

75 7 > 7 "^ OFF ^ ON 

KUO 9#*.* ft *?■*•*£«, 10 H £aibTXX-7>'7‘7F£ON Cl/ctT, fc-5— S20 h*» 
40„£tti;'}bT, H®*-F£R£b*$fttf*Ltf4&*v». Sfc, 75 5'y7)V OFF© 
ttH©SST, Bffi^-F* 1/4 -1/1 fc-f-5 fc #&£*«, l/lBH^-KCi-4 kRIfiFC 
X/7 yT’frtf ON K4otL^7©t, &C 80 H £tti;frbT, XX7>Z/l^OFFCL 



m 12-1 C2-8BV1 



0800h 


t) ~7 — f ^ — v/tf — K □ > b □ — JU 


OUT 


080 1h 


Hfix — 


IN 



• □ v> K 



IOh 1 ’ 


l/lHS-E— K+U-fe-y 1 + 77o>7’M)N 


20H 1 ’ 


l/4HB , t — K 


40H n 


1/161®*- K 


80h‘’ 


7,7 7>7';l-[DSS0FF 


01h 




02h 


(B— R— >-G-»B-* ) 


04h 2> 


3>ti-777t7t- K (/\*>y7:r£Iia4[&«>3) 


08h 2) 


fc'xtfil^A**- K (bx*Ig-t£T :? 'X7'f XL^tt-S) 



;il : 1) tiiU2) OT3T> K£tt* LfcSHt, ®ffil6.7msW5x < h 5-155 r t (sfeffi 
4rtt^>T17msl-y.±.* ! 8S Ll')o fcfc'L, 1) WSi:i) W37> Ki ! fi< £?CCo7l 



>±2 : □ v> K0lH^a*«, 2msmrtCl-7-f ><7) x- 7 «t*e&L »*??>::£„ £ fc, X 
B37> KOlH%aS®LTaj*T%i:#(i, 6//sJ-X-h<7)ii®-7x -f h S-m-SXi:,, 

;±3 : 1/4, l/16BBt— &t2il°HtV7 h7i7t rRj] 

SKj *S* ! * 5 0 



#C*12-2**CZ-8BV2 T*-2> 0 I/O 7 F U7tf+ 2 LX, 3vy F^Hofitl^ 
btldffiSo b bt i &®bT:fe’;^&im«'&b&^©ab CZ-8BV2 ti, >J -fe y FBfCXX 
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yyTVWjif*— F £ tT&6 0 t%fc>%, CZ-8BV2 bl/£% 

tii t, «o#DhoT^- 
F 2©/j*SJ: D g&* + Mfe*£SDTV>S0-e2ba o *- F 1 Tli#! *©$!** k*5 LT 
fegAofcfetf-Cfc***, *-F 2tlif 5^5 £ %otv^0tl>5 o £ 

fc, *-F2©fc§(;«fr)tt3 6C7*9y:7/i/©tfc#’C k , 320/640 F y F*- F*«ft 

£*U£ r7 7 7 770P©f±;frJ &©-C$>S 0 bthtlt 640 F 
y h^e— F*0TJb5**, t> b fc*#©BB*- Fi* 320 F y F (WIDTH 40) 

-£&, 320 F y F ; e-F©7 7 7 77*;i/©;fr*sj: 0 SiClil) i^tibSo 



« 12-2 CZ-8BV2 



080 2h 


*7— f K=i > h □— )\s 


OUT 


0803h 




IN 



0 n -7 > K 



IOh 1 ’ 


1/lHS^E— K + 0-tr-y 1 +7.y5>7'^ON 


20h» 


l/4Iit- 8 


40H 11 


1/16®®^- 8 


80h 1) 


7.7 5>7'JU®SSOFF 


01h 


#7)1 7 -f 


02h 


*<7)7u ->(&)*&**&«!>* (B->R— >G— ►B-* ) 


04h 2) 


□ >ei-?7?t^t-8 (/<>y 7 7 &I?t*46«>-l>) 


08h 2> 


t'7^"fE^'A7l^ — 8 (t , Tt(|?^T'y7'l’XLIilt5) 


81h 


y77>7)U£"E— 81 ( BV1 t |h) 17 ) CT5 


83h 


320 8 "J 8"E— 87)7.7 7 >7'JU 


84h 


640 8 "J 8 -E — 87)77 7 >7' JU 


85h 


A-f^f- Fty? □ "E — 8 



>il: CZ-8BV2 Tli, U-tZ'y h ? 7 >7/1/^- Kti r -t— K 2(7)640 K % y h 



Kj T'&5 0 ctoTCZ-8BVl^m:®)fF^^^^^«)C«, □ v > K81n«r*fTf*!& 
>£2 : 320/640 K*y K- Kt«- K2<7) t # (^- KlT(*P5#ttH U). 



5Si«*3<rtTa3 

t-9->7’;l/«-tHtTb*'5©T2b-5 0 U7F12-1, 12-2, 12-3, 12-4T& 
4. 0 7 F 12-lttXlflf, y 7 F 12- 2 «*«»«#, 0 7 F 12- 3 it turbo ffl, !) 7 F 
12- 4 »Jl*«IS«fl-T2b5. y 7 F 12- 1 , 12- 3 t fe C, 

• 130 fr© I/O 7 F U7 

• 170~190fT© J fc“FR5g 

fcftoTV»5 0 CZ-8BVl*fi|oTV»a4&tf, 130=fr£, 

130 CP = &H800 : DP = &H801 

kLTV»fc*?SfcV». 170-190 fTteBffi©*£$©31#?T& S 0 T ’J (REM) tflti 

WrtfSftSftSfcittfoSo £ t> width so ©^e- 
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U X h 12-1 XI ^'5A(St') 



100 


'FOR XI 






110 


INIT : CLS4 : DEFINT 


B-Z 




120 


CLEAR &HE000 






130 


CP=&H802 :DP=&H803 




140 


MEM$ ( &.HE000 , 16) = 


HEXCHR$ ( "EB 4E 23 46 16 50 D9 


01 03 08 ED 78 D9 ED 79 03" ) 


150 


MEM$ ( &HE0 10 , 15)= 


HEXCHR$ ( " 15 D9 20 F6 C9") 




160 


DEFUSR0=&HE000 






170 


XS=80:YS=200:MD 


= &H10 : SL=1 : ’640*200 




180 


’ XS=40 : YS=96 : MD 


=&H20:SL=2 : ’320*96 




190 


’XS=20 : YS=48 : MD 


=&H40 : SL=4 :’160*48 




200 


MEM$ ( &HE008 , 2 ) =MKI $ ( DP ) 




210 


POKE &HE005 , XS 






220 


OUT CP.&H10 


: ’RESET 




230 


OUT CP , MD 


: * 1/1 , 1/4, 1/16 MODE 




240 


* 






250 


OUT CP.&H4 


: ’ COMP ACCESS (LATCH) 




260 


PAUSE 1 






270 


ADR=&H4000 : GOSUB 


"IS" 




280 


ADR=&H8000 : GOSUB 


"IS" 




290 


ADR=&HC000 : GOSUB 


"IS" 




300 


OUT CP.&H8 


: ’VIDEO ACCESS 




310 


PAUSE 1 






320 


GOTO 250 






330 


END 






340 


9 






350 


LABEL" IS" 






360 


OUT CP , &H2 


: ’RGB 




370 


FOR 1=1 TO 24 






380 


OUT CP, 1 


: ’ SET NEXT 1 LINE 




390 


NEXT 






400 


FOR Y= 1 TO YS 






410 


D=INP ( DP ) :D=INP(DP) : D=INP( DP ) : 'SKIP 3 




420 


D$=USR0 ( MKI$ ( ADR ) ) 




430 


ADR=ADR+&H800 






440 


IF (ADR AND &H3800)=0 THEN ADR=ADR- ( &H4000- 


80) 


450 


FOR 1=1 TO SL 






460 


OUT CP, 1 : ’PAUSE 0 : 


’SET NEXT 1 LINE 


470 


NEXT 






480 


NEXT 






490 


RETURN 







<) * h 12-2 — f K—G-RAM ^ 1 7-f 



. Z80 

.PHASE 0E000H ;0R ANY PLACE 



E000 


EB 




EX 


DE , HL 




E00 1 


4E 




LD 


C, (HL) 




E002 


23 




INC 


HL 




E003 


46 




LD 


B, (HL) 


;BC=VRAM ADDR. 


E004 


16 


50 


LD 


D , 80 


; XS 


E006 


D9 




EXX 






E007 


01 


0803 


LD 


BC.0803H 


; DPORT 


E00A 


ED 


78 


LOOP: IN 


A, (C) 


; GET 1 BYTE 


E00C 


D9 




EXX 






E00D 


ED 


79 


OUT 


(C) , A 


; TO VRAM 


E00F 


03 




INC 


BC 


; INC VRAM ADDR 


E010 


15 




DEC 


D 


; DEC COUNTER 


E011 


D9 




EXX 






E012 


20 


F6 


JR 


NZ , LOOP 




E014 


C9 




RET 







END 



■Jxh 12-3 turbo 



100 * FOR turbo 

110 INIT : CLS4 : DEFINT B-Z 

120 CLEAR &HE000 
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130 CP=&H802 : DP=&H803 

140 MEM$ ( &HE000 ,12) =HEXCHR$ ( M 78 EB 01 80 IF 04 ED A3 3D 20 FA C9") 
150 ’ 

160 DEFUSR0=&HE000 

170 XS=80:YS=200:MD=&H10:SL=1 : *640*200 

180 , XS=40:YS=96 : MD=&H20 : SL=2 1*320*96 

190 * XS = 20 : YS = 48 : MD=&H40 : SL=4 : *160*48 

200 OUT CP , &H10 : * RESET 

210 OUT CP , MD :* 1/1, 1/4, 1/16 MODE 

220 DMA$ =DMA$+CHR$ ( &B1 111001) +MKI$ ( &H4000 ) +MKI$ (XS-1 ) 

230 DMA$=DMA$+CHR$ ( &B 11100, &B1 0 1000, &B1 1001101) 

240 DMA$=DMA$+MKI$ ( DP) +CHR$ ( &B1001 1010 ) 

250 D$=USR0(DMA$) 

260 PAUSE 1 
270 * 

280 DMA$ = CHR$ ( &B 11001 ) +MKI $ ( 0 ) +HEXCHR$ ( "CF 87”) 

290 OUT CP , &H4 : * COMP ACCESS (LATCH) 

300 PAUSE 1 

310 ADR=&H4000 : GOSUB” IS ” 

320 ADR=&H8000 : GOSUB” IS ” 

330 ADR=&HC000 : GOSUB” IS ” 

340 OUT CP , &H8 :* VIDEO ACCESS 

350 PAUSE 1 

360 GOTO 290 

370 END 

380 * 

390 LABEL” IS" 

400 OUT CP , &H2 : *RGB 

410 FOR 1=1 TO 24 

420 OUT CP,1 : * SET NEXT 1 LINE 

430 NEXT 

440 FOR Y= 1 TO YS 

450 D = INP(DP) :D = INP(DP) :D = INP(DP) : * SKIP 3 

460 MID$ ( DMA$ ,2,2) =MKI $ ( ADR ) 

470 D$=USR0 ( DMA$ ) 

480 ADR=ADR+&H800 

490 IF (ADR AND &H3800)=0 THEN ADR = ADR- ( &H4000-80 ) 

500 FOR 1=1 TO SL 

510 OUT CP,1:*PAUSE 0 :*SET NEXT 1 LINE 

520 NEXT 
530 NEXT 
540 RETURN 



■J X h 12-4 X^IJ^DMA 







. Z80 










.PHASE 


0E000H ;OR ANY 


PLACE 






;DE=ADDRESS TO 


DATA , B=COUNTER 




E000 


78 


LD 


A , B 




E00 1 


EB 


EX 


DE , HL 


; HL POINTS DATA 


E002 


01 1F80 


LD 


BC, 1F80H 


; DMA I/O ADDR. 


E005 


04 


LOOP: INC 


B 




E006 


ED A3 


OUT I 






E008 


3D 


DEC 


A 




E009 


20 FA 


JR 


NZ , LOOP 




E00B 


C9 


RET 










END 







Sfltyxb Y2-lXhZ> 0 ***0ttl4O, 150 

200, 210 

frT— «***»*£!? LX^Xh**) X < 

ST, t'fht 220fiT$>6 o Z. tilt ? > h V ^ 10 H *tiitJLX^Z>fc>ttt£ o £ 

m 12-1 n/iiffi^K + y^y 
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y>7)U0N] KfotftZo *©&© 230 3 7 F n-fl/itf- F C MD fclitfjLT 

V>£ 0 ZtlitfiSfrt&ZKbit, £1} MD li 10 H , 20 h , 40 h ®^ 

MD=10„©«^(i, ftmtmVlfc^ZM'OtetitteKZbVtzfrtb, i, 
o *£T k MD=20 H ©^£fftl 3 J?'S©'r£>£o 
3 y F n— ;1 /jK— F C 20 H * s ti4^J$ti.-5.SiHi, ±7 — 4 4 — i/tf— F it 1/1 Biffin— F 
£ ifrtXtl^T'J? 4 XLX^tzfoiJXhh a ttefoh, ±7 — <4 
F it 640 F 7 F X200 F 7 F =80 s*4 F X200 7/F (I^m 

t±^^<Dtz±^<Dr-4iz^^LX^tz<DX$>6 0 * i'x 20 H t Vi -5 37>F 
*S3f5fc*)^T*S 0 ± 7 — 4 — V it 4: tit TO 640X200 **?#) 

X, FftffifS 320 F 7 F X200 F 7 F =40 ^4 F X200 7 4 XOf-^Ffitli i 
9 Kfr S ©**, W.<DHit 200 9 4 ><D££mt>i?%^t^5 Z t iZ&Mo bLbZ tltf 20 H 
T%< 40 160 F 7 F X200 h*7 F=20'nM F X200 7 4 > t * 6 (ZZX 

tt«#C»W8 , f 5fc«>cr200 y] >“^JJ?“Fttfeo 

t#< ©7/ y£&D;iAA,-ci>.2>0-e;&.5o ssi&c^-fs©***©}^© 200 74 vt 

v>5 <1 tK^5) 0 

*-F (WIDTH) fc©M«T*12-3©J:5Cl-5ii:e4So 



R 12-3 * 7 — K 





WIDTH 40 


WIDTH 80 


1/1 = 10h 




80'W h x 2007 -f > $r -^CO £ £ G-RAM 
^ (HBteftCRSO 


X 

O 

CM 

II 


40'W h x 2007 1 ' £ G-RAM 

(Ili^CSS) 


40'<-f F x 2007 1 " >£17 < >#i# C 
G-RAM-' 0I®<7>l/4lcR^) 


1/16 = 30h 


20'\'1' 1 x 200 7 1 " >5-1 7 4 >#i# C 
G-RAM-^ (B®<7)1/4C*^) 


20/\''T F X2007-/ >£37 -C >fc# C 
G-RAM-- (®B<7)1/16CR^) 



$TC:i^ 5 o !) X F 12- 1 © 250 fr - ? 3 > F a -;1 /jK— F K 04 h * tB* t 
T0S o £tttt|S?12-l K, T3 >tf a.-^7^-feX^- FJ ^©T^-So ■?• 

^SS* 5 , * 7 — -f — 'JB— Ffi b©3 vy F£SItflX5 b, ZtitTy-vrt y*tr br 
*y?4 XUv^®^j()t, 

&<> i5U -f *©VH^o£r s^-f XLTi8b-C ■*>€>*„ KSfcJ tt£ 

6k>itX&Z 0 ttafoh, ± 7 — f *-s>jR-Ftt, g^OjfoTV^/77 7 7 £— ffK 
b T r — 7 EiH-t — F J CASOT&S (i& 12- 1 ©& 1 C fc &S «k -5 C, a*7 7t 
**— ff C 4«iT, **©«-& 17 ms 6 &V>) o 
^©<^0 270~290 frCttW, B, &<DmT* 7 -4 F*>£ G-RAM CgjgL 

TV»S 0 

350 fr*»& (DBf)V~4- y "IS" ©t$£BJ-C£>S 0 
£-f« 360fr£T 2 J £ OUT ItUSo £ftttBfr1*fcfcI*t;fcB-»R-»G-*B * 
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fotftio i^C 370~390 ; fT ZtUi 24 ^©SSc^T'^-S-o $feS*v»fcJ: 
5C, #7-^ 7-'7'**-F(±ilil(2 200 7 -I >i 9 ©7"f y*S[*JR9a^v»5 

0**0 *> i i £**C, ftlUO^fi^fg^LT^TT 

V»SOT*«o ^n^ 6410 ffT*«„ 4 SU 3 aM hO^Sc^T*€>o 
^tv^fc, ; etttt^7-^^-^^-K©^N-F^ j e5*oTv^*^-eS).5 0 
410 frS' BR& b T <& 5 t, 5 o'&te 420frCl 7^ 7 

U 430 fi\ 440 fTT G-RAM 7 F 7 A £ 1 7 A 7T kf, 450~470 ffT (*7 — f 7 
— $?zK— FHO) 7-f 70X^7 So 

J^±T- t * 9 KlJBiiftb 5 T* & 0 170~190 ^f-PSBRC b T fc S frfcfifig b T* S 3 
©HiBSSr^b*!), YS©{fi£*£ < b*9, SL ©fit£Vib7* 9 bT^bATVi 
fc£S;fcV\> 

9Xb 12- 3 O turbo JKtt, ^-^©teSIC DMA i«oTV»i Cl k^ttfgfcofc C 
fcfi*V>©T% |&Bmi i £l§T£o 

ST, bb*^i?t.}?%7-f-7 7a.C^t,3Atf©'t k ^>?)o *bTHWif**a*»i:V» 
it, rBASIC+»B®©*-f 7F*J &<D?$>£o 
m&m>t t , ctc ©so 9 a* ^f^t, basic t Bit® 9 a*# Mflii&ttbT b t •$ 

(D-C&5 o f*tmi¥cri:^.tUiAS, 

&V>7lTCJb3 5 0 BASIC *5% ^AtSlViT V>SH bB®T, 1/16 ( fc b <« 1/4) ©B 
ili**y 7^7-i ATm^r^6(DT$>6 0 Sft£MTtfifif t i*£&Vi&«Vi*ViT£> 
3io 

T, £©<fc-C BASIC+Bt9ft9a&** (— j£) 7;Ff-7X7-f & t, ifi Vi? 7 9 7 
b £*£> •£> ^ t Vi 7 t, 

1 ) flMMI©a.-lf-eg 1 JlT#« 

2) flH»»©A-- •?-#*< 

3) ffetsa©^.— 

4) «a© 7 .-if-* 5 «ig 2 » 

5) T 7h*^M** s ^7°D7'7 A-f 3 , ffi$S§©7'77‘ , 9 X b ^A^JT# £ (X-/n°— 7 
7tf-XJ: 91*7 fcSttU***^) 

6 ) 

tiotv^o tCM»<(;b rKBfflO^'f 7F7J *©T£>& 0 SA 

* SF 7 V> ;t§, 8 tf 7 b © turbo ( t CTC o XI) ttit b £ i ©***7 ! 

t®±boo, ^ 07 * 7 A©i^0jK**ttat?©T^ 7 * 0 
■J A h 12-5 ** XI H<D7-t>7/uy XI, 9 X h 12-6 «0/F/!) X 1 (CRC Ax 
yXibA-ftfi : {T$i A £•#!$), 9X h 12-7 *tturboJf©7-fe 77*^9 X b, 9Xh12- 
8 A*T©CRC Ax7 7AA{T#T'7 7“9 X b 
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12-9-12-12 -cab So 

HR c I5&BJ3 E <£ o o 

£ ©£©©:/ x 7° 'J X b £?Tt>iA<&., D x h 12-6 fi, 

SAVEM "BV. CPU", &HEF00, &HEFC6 
T-fe-y-TSo 

y x h i 2 - 8 tub a, 

SAVEM "BV. DMA", &HEF00, &HEFEE 
-C&So (isitfCRC) ©fitfg£5t^c-f&£ to 



X h 12- 


5 
















. Z80 














.PHASE 


0EF00H 










COMMANDS 


10H 


RESET, 1/1 












20H 


1/4 












40H 


1/16 












80H 


HALF TONE OFF 












0 1H 


NEXT 1 LINE 












02H 


NEXT PLANE ( B- >R->G- > B . 












04H 


COMP ACCESS 












08H 


VIDEO ACCESS 








CZ-8BV2 
















8 1H 


HALF TONE=MODEl 












83H 


X= 3 20 MODE 












84H 


X=640 MODE 












85H 


MONO COLOR MODE 


EF00 


50 


5 


(S : 


DB 


80 


;X SIZE 


EF0 1 


C8 


YS: 


DB 


200 


; Y SIZE 


EF02 


01 


UPPASS : 


DB 


1 


;UP PASS LINES 


EF03 


01 


LTPASS : 


DB 


1 


; LEFT PASS BYTES 


EF04 


01 


STIME: 


DB 


1 


; SKIP LINES 


EF05 


10 00 


MODES : 


DB 


10H.00H 




EF07 


00 00 00 00 






DB 


00H.00H 


, 00H , 00H , 00H 


EF0B 


00 












EF0C 


0802 


CPORTA : 


DW 


0802H 


; OR 800H 


EF0E 


4000 


TOPA: 


DW 


4000H 




EF1 0 


CD EFAC 


START : 


CALL 


INIT 


; INIT BV 


EF1 3 


F3 


ENT: 


DI 






EF14 


F5 






PUSH 


AF 




EF15 


C5 






PUSH 


BC 




EF1 6 


D5 






PUSH 


DE 




EF17 


E5 






PUSH 


HL 




EF18 


D9 






EXX 






EF19 


C5 






PUSH 


BC 




EF1A 


D5 






PUSH 


DE 




EF1B 


E5 






PUSH 


HL 


; SAVE REGISTERS 


EF1C 


ED 4B EF0C 






LD 


BC, (CPORTA) 


EF20 


3E 04 






LD 


A , 04H 


*, COMP ACCESS 


EF22 


ED 79 






OUT 


(C) ,A 


; LATCH 


EF24 


D9 






EXX 




;BC* =( CPORTA) 


EF2 5 


CD EFBE 






CALL 


DELAY 




EF28 


2A EF0E 






LD 


HL , ( TOPA ) ; VRAM ADDRESS 


EF2B 


E5 






PUSH 


HL 




EF2C 


CD EF52 






CALL 


IMAGES 


; BLUE 


EF2F 


El 






POP 


HL 




EF30 


E5 






PUSH 


HL 




EF3 1 


CB B4 






RES 


6 , H 




EF33 


CB FC 






SET 


7 , H 




EF35 


CD EF52 






CALL 


IMAGES 


; RED 



290 tsuctbs xi 



EF38 


El 




POP 


HL 




EF39 


CB FC 




SET 


7 , H 




EF3B 


CD EF52 




CALL 


IMAGES 


; GREEN 


EF3E 


3E 08 


9 


LD 


A , 08H 


; VIDEO ACCESS 


EF40 


D9 




EXX 




; BC ’ = ( CPORTA ) 


EF 4 1 


ED 79 




OUT 


(C) , A 




EF43 


D9 




EXX 






EF44 


CD EFBE 




CALL 


DELAY 




EF47 


El 


* 


POP 


HL 




EF48 


D1 




POP 


DE 




EF49 


Cl 




POP 


BC 




EF4A 


D9 




EXX 






EF4B 


El 




POP 


HL 




EF4C 


D1 




POP 


DE 




EF4D 


Cl 




POP 


BC 




EF4E 


FI 




POP 


AF 


; LOAD REGISTERS 


EF4F 


FB 


9 


El 






EF50 


C9 




RET 




;OR RETI 


EF5 1 


00 




NOP 






EF52 


3E 02 


IMAGES: 


LD 


A , 02H 


; NEXT PLANE 


EF54 


D9 




EXX 




; BC ’ = ( CPORTA ) 


EF55 


ED 79 




OUT 


(C) , A 




EF57 


D9 




EXX 






EF58 


CD EF9 1 


’ 


CALL 


DUMYV 


; SKIP LINES 


EF5B 


3A EF0 1 




LD 


A, (YS) 


; LINE COUNT 


EF5E 


5F 




LD 


E, A 


;E=COUNTER 


EF5F 


CD EF9F 


I MAY: 


CALL 


DUMYH 


; SKIP BYTES 


EF62 


44 




LD 


B,H 




EF63 


4D 




LD 


C , L 


; COPY ADDRESS 


EF64 


3A EF00 




LD 


A, (XS) 




EF67 


57 




LD 


D, A 


; COUNTER 


EF68 


D9 




EXX 




; BC * = ( CPORTA ) 


EF69 


03 




INC 


BC 


; BC ’ = ( DPORTA ) 


EF6A 


ED 78 


POO: 


IN 


A, (C) 


; READ 1 BYTE 


EF6C 


D9 




EXX 






EF6D 


ED 79 




OUT 


(C) , A 


;TO VRAM 


EF6F 


03 




INC 


BC 


; INC VRAM ADDR. 


EF7 0 


15 




DEC 


D 


; DEC COUNTER 


EF7 1 


D9 




EXX 






EF7 2 


C2 EF6A 




JP 


NZ , POO 




EF7 5 


0B 




DEC 


BC 


;BC'= (CPORTA) 


EF7 6 


D9 




EXX 






EF7 7 


3A EF04 


9 


LD 


A, (STIME) 


EF7A 


CD EF94 




CALL 


NEXTL 


; SKIP LINES 


EF7D 


3E 08 


9 


LD 


A, 8 


;DOWN 1 LINE 


EF7F 


84 




ADD 


A , H 




EF80 


67 




LD 


H , A 




EF8 1 


E6 38 




AND 


38H 




EF83 


C2 EF8C 




JP 


NZ, IMANEX 


EF86 


01 3FB0 




LD 


BC , 4000H- 


-80 


EF89 


B7 




OR 


A 




EF8A 


ED 42 




SBC 


HL , BC 




EF8C 


ID 


IMANEX: 


DEC 


E 




EF8D 


C2 EF5F 




JP 


NZ.IMAY 


; loop 


EF90 


C9 




RET 










!?? LINES PASS 






EF9 1 


3A EF02 


DUMYV : 


LD 


A, (UPPASS) 


EF94 


D9 


NEXTL : 


EXX 




; BC * = ( CPORTA ) 


EF95 


16 01 




LD 


D , 0 1H ; 


; 1L DOWN 


EF97 


ED 51 


NEXTL1 : 


OUT 


(C) , D 




EF99 


3D 




DEC 


A 




EF9A 


C2 EF97 




JP 


NZ , NEXTL1 


EF9D 


D9 




EXX 






EF9E 


C9 




RET 










;?? BYTES SKIP 






EF9F 


D9 


DUMYH : 


EXX 




BC * = ( CPORTA ) 


EFA0 


0C 




INC 


C ; 


BC ’ = ( DPORTA ) 


EFA1 


3A EF03 




LD 


A, ( LTPASS ) 
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EFA4 


ED 50 


DUMYHL : 


IN 


D, (C) 




EFA6 


3D 




DEC 


A 




EFA7 


20 FB 




JR 


NZ, DUMYHL 


EFA9 


0D 




DEC 


C 




EFAA 


D9 




EXX 




; BC * = ( CPORTA ) 


EFAB 


C9 




RET 






EFAC 


ED 4B EF0C 


INIT : 


LD 


BC , ( CPORTA ) 


EFB0 


21 EF05 




LD 


HL, MODES 




EFB3 


7E 


INIT0 : 


LD 


A, (HL) 




EFB4 


23 




INC 


HL 




EFB5 


B7 




OR 


A 




EFB6 


C8 




RET 


Z 


; END MODE SET 


EFB7 


ED 79 




OUT 


(C) i A 


; SET BV MODE 


EFB9 


CD EFBE 




CALL 


DELAY 




EFBC 


18 F5 




JR 


INIT0 




EFBE 


11 0A37 


DELAY : 


LD 


DE, 2615 


; 10 


EFC1 


IB 


DELAYL: 


DEC 


DE 


;6 


EFC2 


7A 




LD 


A , D 


;4 


EFC3 


B3 




OR 


E 


;4 


EFC4 


20 FB 




JR 


NZ, DELAYL *,12/7 


EFC6 


C9 




RET 




; 10 






; 10+ 10+ (6 + 4 + 4 + 12) *2615-12 + 7 = 68005 



=17. 00125ms 
END 



MXh 12-6 r 'jxh 12-5j 0>*'>7'MXh *BV. CPU*-C"fe-X' 



EF00 


50 


C8 


01 


01 


01 


10 


00 


00 


2B 




EF7 8 


04 


EF 


CD 


94 


EF 


3E 


08 


84 : 


0D 


EF08 


00 


00 


00 


00 


02 


08 


00 


40 


4A 
























EF10 


CD 


AC 


EF 


F3 


F5 


C5 


D5 


E5 


CF 




SUM: 


F5 


DA 


90 


88 


42 


94 


IF 


75 92ED 


EF1 8 


D9 


C5 


D5 


E5 


ED 


4B 


0C 


EF 


8B 
























EF20 


3E 


04 


ED 


79 


D9 


CD 


BE 


EF 


FB 




EF80 


67 


E6 


38 


C2 


8C 


EF 


01 


B0 


73 


EF28 


2A 


0E 


EF 


E5 


CD 


52 


EF 


El 


FB 




EF88 


3F 


B7 


ED 


42 


ID 


C2 


5F 


EF 


52 


EF30 


E5 


CB 


B4 


CB 


FC 


CD 


52 


EF 


39 




EF90 


C9 


3A 


02 


EF 


D9 


16 


01 


ED 


D1 


EF38 


El 


CB 


FC 


CD 


52 


EF 


3E 


08 


FC 




EF98 


51 


3D 


C2 


97 


EF 


D9 


C9 


D9 


51 


EF40 


D9 


ED 


79 


D9 


CD 


BE 


EF 


El 


73 




EFA0 


0C 


3A 


03 


EF 


ED 


50 


3D 


20 


D2 


EF48 


D 1 


Cl 


D9 


El 


D1 


Cl 


FI 


FB 


CA 




EFA8 


FB 


0D 


D9 


C9 


ED 


4B 


0C 


EF 


DD 


EF50 


C9 


00 


3E 


02 


D9 


ED 


79 


D9 


21 




EFB0 


21 


05 


EF 


7E 


23 


B7 


C8 


ED 


22 


EF58 


CD 


91 


EF 


3A 


01 


EF 


5F 


CD 


A3 




EFB8 


79 


CD 


BE 


EF 


18 


F5 


11 


37 


48 


EF60 


9F 


EF 


44 


4D 


3A 


00 


EF 


57 


9F 




EFC0 


0A 


IB 


7A 


B3 


20 


FB 


C9 




36 


EF68 


D9 


03 


ED 


78 


D9 


ED 


79 


03 


83 
























EF7 0 


15 


D9 


C2 


6A 


EF 


0B 


D9 


3A 


27 




SUM: 


6B 


48 


EC 


62 


A6 


E2 


15 


98 168C 



MX 112-7 XI turbo 












.PHASE 


0EF00H 




1F80 




I 


)MA EQU 


1F80H 










COMMANDS 


10H 


RESET, 1/1 










20H 


1/4 










40H 


1/16 










80H 


HALF TONE OFF 










0 1H 


NEXT 1 LINE 










02H 


NEXT PLANE (B->R->G->B 










04H 


COMP ACCESS 










08H 


VIDEO ACCESS 








CZ-8BV2 














81H 


HALF TONE=MODEl 










83H 


X=320 MODE 










84H 


X=640 MODE 










85H 


MONO COLOR MODE 


EF00 


50 


> 


CS : DB 


80 


; X SIZE 


EF0 1 


C8 


YS: DB 


200 


; Y SIZE 


EF02 


01 


UPPASS: DB 


1 


; UP PASS LINES 


EF03 


01 


LTPASS : DB 


1 


-.LEFT PASS BYTES 
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EF04 


01 


STIME: DB 


1 


; SKIP LINES 


EF05 


10 00 


MODES: DB 


10H.00H 




EF07 


00 00 00 00 


DB 


00H.00H 


, 00H, 00H.00H 


EF0B 


00 








EF0C 


0802 


CPORTA : DW 


0802H 


; OR 800H 


EF0E 


4000 


TOPA : DW 


4000H 




EF1 0 


CD EFAA 


START: CALL 


INIT 


; I N I T BV , DMA 


EF1 3 


F3 


ENT: DI 






EF1 4 


F5 


PUSH 


AF 




EF 1 5 


C5 


PUSH 


BC 




EF1 6 


D5 


PUSH 


DE 




EF1 7 


E5 


PUSH 


HL 




EF1 8 


D9 


EXX 






EF 1 9 


C5 


PUSH 


BC 




EF1A 


D5 


PUSH 


DE 




EF1B 


E5 


PUSH 


HL 


; SAVE REGISTERS 


EF1C 


ED 4B EF0C 


LD 


BC , ( CPORTA ) 


EF20 


3E 04 


LD 


A.04H 


; COMP ACCESS 


EF22 


ED 79 


OUT 


(C) , A 


; LATCH 


EF24 


D9 


EXX 




; BC * = ( CPORTA ) 


EF25 


CD EFE6 


CALL 


DELAY 




EF28 


2A EF0E 


LD 


HL , ( TOPA ) ; VRAM ADDRESS 


EF2B 


E5 


PUSH 


HL 




EF2C 


CD EF52 


CALL 


IMAGES 


; BLUE 


EF2F 


El 


POP 


HL 




EF30 


E5 


PUSH 


HL 




EF3 1 


CB B4 


RES 


6 , H 




EF33 


CB FC 


SET 


7 , H 




EF35 


CD EF52 


CALL 


IMAGES 


; RED 


EF38 


El 


POP 


HL 




EF39 


CB FC 


SET 


7 , H 




EF3B 


CD EF52 


CALL 


IMAGES 


; GREEN 


EF3E 


3E 08 


LD 


A , 08H 


; VIDEO ACCESS 


EF 4 0 


D9 


EXX 




; BC ’ = ( CPORTA ) 


EF 4 1 


ED 79 


OUT 


(C) , A 




EF43 


D9 


EXX 






EF44 


CD EFE6 


CALL 


DELAY 




EF47 


El 


POP 


HL 




EF48 


D1 


POP 


DE 




EF49 


Cl 


POP 


BC 




EF4A 


D9 


EXX 






EF4B 


El 


POP 


HL 




EF4C 


D1 


POP 


DE 




EF4D 


Cl 


POP 


BC 




EF4E 


FI 


POP 


AF 


; LOAD REGISTERS 


EF4F 


FB 


El 






EF50 


C9 


RET 




;OR RET I 


EF5 1 


00 


NOP 










;============ 






EF52 


3E 02 


IMAGES : LD 


A , 02H 


; NEXT PLANE 


EF54 


D9 


EXX 




;BC’= (CPORTA) 


EF55 


ED 79 


OUT 


(C) , A 




EF57 


D9 


EXX 






EF58 


CD EF8F 


CALL 


DUMYV 


; SKIP LINES 


EF5B 


3A EF0 1 


LD 


A, (YS) 


; LINE COUNT 


EF5E 


5F 


LD 


E , A 


; E=COUNTER 


EF5F 


CD EF9D 


IMAY: CALL 


DUMYH 


; SKIP BYTES 


EF62 


01 1 F80 


LD 


BC , DMA 


; DMA ADDRESS 


EF65 


3E 19 


LD 


A.00011001B ; WR0 


EF67 


ED 79 


OUT 


(C) ,A 




EF69 


ED 69 


OUT 


(C) , L 




EF6B 


ED 61 


OUT 


(C) ,H 


; SET VRAM ADDRESS 


EF6D 


3E CF 


LD 


A , 0CFH 


; WR6 LOAD 


EF6F 


ED 79 


OUT 


(C) , A 




EF7 1 


3E 87 


LD 


A , 87H 


; WR6 ENABLE 


EF7 3 


ED 79 


OUT 


(C) ,A 
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EF7 5 


3A EF04 




LD 


A, (STIME) 


EF78 


CD EF92 




CALL 


NEXTL ; SKIP LINES 


EF7B 


3E 08 




LD 


A, 8 ; DOWN 1 LINE 


EF7D 


84 




ADD 


A , H 


EF7E 


67 




LD 


H , A 


EF7F 


E6 38 




AND 


38H 


EF8 1 


C2 EF8A 




JP 


NZ, IMANEX 


EF84 


01 3FB0 




LD 


BC , 4000H-80 


EF87 


B7 




OR 


A 


EF88 


ED 42 




SBC 


HL , BC 


EF8A 


ID 


IMANEX: 


DEC 


E 


EF8B 


C2 EF5F 




JP 


NZ , IMAY ; LOOP 


EF8E 


C9 




RET 








;?? LINES PASS 




EF8F 


3A EF02 


DUMYV : 


LD 


A, (UPPASS) 


EF92 


D9 


NEXTL : 


EXX 


; BC * = ( CPORTA ) 


EF93 


16 01 




LD 


D,01H ; 1L DOWN 


EF95 


ED 51 


NEXTL1 : 


OUT 


(C) , D 


EF97 


3D 




DEC 


A 


EF98 


C2 EF95 




JP 


NZ , NEXTL1 


EF9B 


D9 




EXX 




EF9C 


C9 




RET 








;?? BYTES SKIP 




EF9D 


D9 


DUMYH : 


EXX 


;BC»=( CPORTA) 


EF9E 


0C 




INC 


C ; BC ’ = ( DPORTA ) 


EF9F 


3A EF03 




LD 


A, ( LTPASS ) 


EFA2 


ED 50 


DUMYHL : 


IN 


D, (C) 


EFA4 


3D 




DEC 


A 


EFA5 


20 FB 




JR 


NZ, DUMYHL 


EFA7 


0D 




DEC 


C 


EFA8 


D9 




EXX 


; BC ’=( CPORTA ) 


EFA9 


C9 




RET 




EFAA 


ED 4B EF0C 


INIT : 


LD 


BC , ( CPORTA ) 


EFAE 


21 EF05 




LD 


HL, MODES 


EFB1 


7E 


INIT0 : 


LD 


A, (HL) 


EFB2 


23 




INC 


HL 


EFB3 


B7 




OR 


A 


EFB4 


28 07 




JR 


Z , INIT1 ; END MODE SET 


EFB6 


ED 79 




OUT 


(C) ,A ;SET BV MODE 


EFB8 


CD EFE6 




CALL 


DELAY 


EFBB 


18 F4 




JR 


INIT0 


EFBD 


3A EF00 


INIT1 : 


LD 


A, (XS) 


EFC0 


6F 




LD 


L , A 


EFC1 


26 00 




LD 


H , 0 


EFC3 


2B 




DEC 


HL 


EFC4 


22 EFDE 




LD 


(DMAXS) , HL ; SET X SIZE 


EFC7 


2A EF0C 




LD 


HL, (CPORTA) 


EFCA 


23 




INC 


HL ; HL=DPORTA 


EFCB 


22 EFE3 




LD 


(DMAPDA) , HL 


EFCE 


21 EFDD 


* 


LD 


HL, DMADT 


EFD1 


3E 09 




LD 


A , DMADTE-DMADT 


EFD3 


01 1F80 


SETDMA : 


LD 


BC , DMA 


EFD6 


04 


SDMAL : 


INC 


B 


EFD7 


ED A3 




OUT I 


;OUT TO DMA 


EFD9 


3D 




DEC 


A 


EFDA 


20 FA 




JR 


NZ, SDMAL 


EFDC 


C9 




RET 




EFDD 


61 


DMADT : 


DEFB 


01 100001B ;WR0 


EFDE 




DMAXS : 


DEFS 


2 ; LENGTH 


EFE0 


1C 




DEFB 


00011100B ', WR1 


EFE1 


28 




DEFB 


00101000B ; WR2 


EFE2 


CD 




DEFB 


1100110 LB *, WR4 


EFE3 




DMAPDA : 


DEFS 


2 ; PORT B ADR 


EFE5 


9 A 




DEFB 


100110 1 0B ; WR5 


EFE6 




DMADTE : 






EFE6 


11 0A37 


DELAY : 


LD 


DE , 26 1 5 ; 10 


EFE9 


IB 


DELAYL: 


DEC 


DE ; 6 


EFEA 


7A 




LD 


A , D ; 4 


EFEB 


B3 




OR 


E ; 4 


EFEC 


20 FB 




JR 


NZ, DELAYL ; 1 2/7 


EFEE 


C9 




RET 


; 10 
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10+10+ (6+4+4+12 >*2615-12+7=68005 

=17 .00125ms 



END 



i) 7 (• 12-8 r 'J * 1 12-7j <7)?>7>) 7 |-"BV. DMA"f-tr-7' 



EF00 


50 


C8 


01 


01 


01 


10 


00 


00 


2B 


EF08 


00 


00 


00 


00 


02 


08 


00 


40 


4A 


EF10 


CD 


AA 


EF 


F3 


F5 


C5 


D5 


E5 


CD 


EF 1 8 


D9 


C5 


D5 


E5 


ED 


4B 


0C 


EF 


8B 


EF20 


3E 


04 


ED 


79 


D9 


CD 


E6 


EF 


23 


EF28 


2A 


0E 


EF 


E5 


CD 


52 


EF 


El 


FB 


EF30 


E5 


CB 


B4 


CB 


FC 


CD 


52 


EF 


39 


EF38 


El 


CB 


FC 


CD 


52 


EF 


3E 


08 


FC 


EF40 


D9 


ED 


79 


D9 


CD 


E6 


EF 


El 


9B 


EF48 


D 1 


Cl 


D9 


El 


D1 


Cl 


FI 


FB 


CA 


EF50 


C9 


00 


3E 


02 


D9 


ED 


79 


D9 


21 


EF58 


CD 


8F 


EF 


3 A 


01 


EF 


5F 


CD 


A1 


EF60 


9D 


EF 


01 


80 


IF 


3E 


19 


ED 


70 


EF68 


79 


ED 


69 


ED 


61 


3E 


CF 


ED 


17 


EF70 


79 


3E 


87 


ED 


79 


3A 


04 


EF 


D 1 


EF7 8 


CD 


92 


EF 


3E 


08 


84 


67 


E6 


65 


SUM: 


C0 


C8 


B0 


5D 


52 


C0 


51 


0C 3533 



EF80 


38 


C2 


8A 


EF 


01 


B0 


3F 


B7 


1A 


EF88 


ED 


42 


ID 


C2 


5F 


EF 


C9 


3A 


5F 


EF90 


02 


EF 


D9 


16 


01 


ED 


51 


3D 


5C 


EF98 


C2 


95 


EF 


D9 


C9 


D9 


0C 


3A 


07 


EFA0 


03 


EF 


ED 


50 


3D 


20 


FB 


0D 


94 


EFA8 


D9 


C9 


ED 


4B 


0C 


EF 


21 


05 


FB 


EFB0 


EF 


7E 


23 


B7 


28 


07 


ED 


79 


DC 


EFB8 


CD 


E6 


EF 


18 


F4 


3A 


00 


EF 


D7 


EFC0 


6F 


26 


00 


2B 


22 


DE 


EF 


2 A 


D9 


EFC8 


0C 


EF 


23 


22 


E3 


EF 


21 


DD 


10 


EFD0 


EF 


3E 


09 


01 


80 


IF 


04 


ED 


C7 


EFD8 


A3 


3D 


20 


FA 


C9 


61 


ED 


IE 


2F 


EFE0 


1C 


28 


CD 


0C 


CD 


9A 


11 


37 


CC 


EFE8 


0A 


IB 


7A 


B3 


20 


FB 


C9 




36 


SUM: 


B4 


77 


EE 


11 


CA 


97 


49 


2B F2C9 



Si^Xl^ — f-«OA b 12-9 £, turbo i-if-«9 A b 12 

-io a2omniT& : itztfT$>&)o 
<£ 5 C 0 

ztlfrb RUN t (ZbZfrC&mfflBffifrZ LOADMTD- F LtUVU;^*U 
t>), 2>(D?$>6o & <^-otzbZ.-oh<Db<DXhZ> 0 

1 SHIFT | + 1 BREAK | X±lsbXi'tztz%tz^o &C 130 — 160 OAF 12-11, 12-12 © 

X -5 is©#®** 1/4 H®, l/16!iB©& 

Cl d £TCZ-8BV2 *$f-oX^Z>\(Dtz#)<DWM. ?>Lt*^5o OAF 12-11© 150tTC 
£>S 3-?y F©Mtf£, 

HEXCHR$("10 20 83 

tLX^tztiZtz^o £<M%Vtz'&X, BREAK LX, ifcICtt, 

HEXCHR$("10 20 84 

t UTV^frfftfr^o if * *i, »>KA7 7>'©l'©^7-fi 5 iati?.ao <1*1*5 320 
F y F t 640 F 7 F *- F©«©T£>-& 0 
^C|p]Ui & Cl t £, 

HEXCHR$("10 20 81 

t, 

HEXCHR$("10 20 00 

d*L*5^e- F 1 t^e-F 2<D&^X$>&o 5t 2CD15 
&tz, F lT(i, 320/640 Fy b ©jl©*^^ t -5 <1 i feff 
UlR&v>©/:*5, 

gltV^ £ tKtJo ^8§7n^?A&»SC#§ifc*.S£i?U*C*T»UV»o *A 

H12¥ *7-A /-->**- F' 295 



?n X'&Zfrb, sUsy b 1 £MDT$>6 



i;^hl2-9 XI 



100 INIT :*1/1 MODE 

110 CLEAR &HEF00 

120 IF MEM$(&HEF10,3)OHEXCHR$("CD AC EF") THEN LOADM "BV.CPU" 
130 MEM$ ( &HEF00 , 4 ) =CHR$ ( 80 , 200 ,24,3) 

140 MEM$ ( &HEF04 , 1 ) =CHR$ ( 1 ) 

150 MEM$ ( &HEF05 , 7 ) =HEXCHR$ ( " 10 00 00 00 00 00 00") 

160 MEM$ ( &HEF0C , 4 ) =MKI $ ( &H802 ) +MKI$ ( &H4000 ) 

170 CALL &HEF10 

180 CALL &HEF1 3 : GOTO 180 



12-10 xi turbo 



100 INIT : * 1/1 MODE 

110 CLEAR &.HEF00 

120 IF MEM$ ( &HEF10 , 3 ) < >HEXCHR$ ( "CD AA EF" ) THEN LOADM "BV.DMA M 
130 MEM$ ( &HEF00 , 4 ) =CHR$ ( 80 , 200 ,24,3) 

140 MEM$ ( &HEF04 , 1 ) =CHR$ ( 1 ) 

150 MEM$ ( &HEF05 , 7 ) =HEXCHR$ ( " 10 00 00 00 00 00 00") 

160 MEM$ ( &HEF0C , 4 ) =MKI $ ( &H802 ) +MKI $ ( &H4000 ) 

170 CALL &HEF10 

180 CALL &HEF13 : GOTO 180 



V X b 12-11 4#<7) 



130 MEM$ ( &HEF00 , 4 ) =CHR$ (43,116,1,2) 

140 MEM$ ( &HEF04 , 1 ) =CHR$ ( 2 ) 

150 MEM$ ( &HEF05 , 7 ) =HEXCHR$ ( " 10 20 00 00 00 00 00") 
160 MEM$ ( &HEF0C , 4 ) =MKI $ ( &H802 ) +MKI $ ( &H4 000 + 37 + 80* 1 0 ) 



') * h 12-12 16 1 Ml* U i 



130 MEM$ ( &HEF00 , 4 ) =CHR$ (21,58,1,2) 

140 MEM$ ( &HEF04 , 1 ) =CHR$ ( 4 ) 

150 MEM$ ( &HEF05 , 7 ) =HEXCHR$ ("10 40 00 00 00 00 00") 
160 MEM$ ( &HEF0C, 4 ) =MKI $ ( &H802 ) +MKI $ ( &H4 500+59+80) 



£T, l/\mW<D 1 %L'0'&fr7v77 2» (1/lBIti l/4Bffi 

© 180frJSl»*'./* h 12-13 (turbo ffl) b t < it ') X h 12-14 (XI fl§) ©± 
+ -5 BASIC hi TOKJ t S y WW&K) 

(?) cr>Tg±&9T&Z 0 tz 
tzL, XI FM^S# - K (CZ-8BS1) *\ K (CZ -8RB1 ) 

*\ RS-232C • -7' 1 J7.X- K (CZ-8BM2) LT, 

^T 200~220fTEfcS < k3KrCTC=~J©7Fi'X**8»*S£fc o U X b 12-14 T 
H FM b* 

Z.(D?u &£ Z. t 

Tibi o turbo ©«^fi TEMPO (TTEMPO 30J TM 
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ttUft 9 &***-#» <*S) 0 XlO^Tfi, 300 fr i: 320frCCTC ft (30 t 

125) < + 5 t HHt^X D < &D, /J'£ < -f5 EH < #£o ittConTfiH 

5f§#l©:h„ OX h 12-14 Ttt 190 frCTPOKE &H61AE, lJt^oT 

v>5**, Ztl(£ BASIC &Wi?8&£X, [USTj^zmftLXbyyy'ivttfOFFtz 
*«5>*V»J:3 CtT^5©T^>S(^/ftrFILESJ^if-Ctt OFF KftS) 0 %4*C turbo 
Ttt (I! X M2-13Ttt^o-r4^**), TPOKE &H14F9, lj fc-rscfcCioT, 
TLISTJ *SSfrbTfc^?7 4 y?#tOFFC464<4S. 

*uaiiti5<is > yxh 12 - 13 © 200 fr& h^r-7* 

A'fcfc&sw.T^sj ©t, i:^fe!a:v»KB!iT*So tmfetZo sfc, y 

xi' i2-i3, 12 - 14 ttrfirflEfe run s*Tttv»»ia:v»j0TJb5o osd, #jd&<^£« 
^■Br-fCSiya^a^-f-yoy-^^ViUSc: fcC*S*^T*-5o + &:b*>, 2g 

@© RUN k'y 

ttz, Xu ^7A4=t DELAY EV>5 

j#TTbSo'rv»-5©TJbSo OSD, CTC*$35<«3fcfc^fcl$M*#»Kte*, 
BASIC ©*-aS#fl±?-4©T* So CTlo £ 

0*1 12-13 XI turbo Sfi/tW >- U * h^g,£ (turbo BASIC ffl) 

180 TEMPO 80 

190 MEM$ ( &HEF50 , 2 ) =HEXCHR$ ( "ED 4D" ) 

200 MEM$ ( &HF8 IE , 2 ) =MKI $ ( &HEF1 3 ) 



'IX (• 12-14 Xlfflxi^bWvO^ ia;S^(NEW BASIC TltMfi' 4'i') 



180 


MEM$ ( &HEF50 , 


2 ) =HEXCHR$ ( ”ED 4D" ) 




190 


POKE &H61AE, 


1 : 1 IF TAPE BASIC THEN 


&H68E2 


200 


CTC = &H7 04 


: * CZ-8BS 1 




210 


* CTC=&HA04 


: * CZ-8BR1 




220 


’ CTC=&H 1 FA8 


: * CZ-8BM2 




230 


OUT CTC+0, 3: 


**+>**0 RESET 




240 


OUT CTC+1 , 3 : 


, + + >^ill RESET 




250 


OUT CTC+2 , 3 : 


* f+>*Jl'2 RESET 




260 


OUT CTC+3,3: 


’*+>**3 RESET 




270 


» 






280 


MEM$ ( &H5E , 2 ) 


=HEXCHR$ ("13 EF" ) : * 


7')3* TABLE SET 


290 


> 






300 


OUT CTC+0 , &B100 111 :OUT CTC+0,30 


:’*+>*;v0 SET 


310 


OUT CTC+0, &H58 


: ’ WaS'S* SET 


320 


OUT CTC+ 3 , &B 11000111: OUT CTC+3,125 


:’*+>*^3 SET 
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-f)VT%% * -f'J x 7 b <D± % £ ^©J|® $ ti* 9 7 S ©?i) 0 7© ± 5 C#;i T & S & 
S, $^r'5~tf, ZiUtT — '/(Dry — v ?%Uibtzt LTfe, Jfo/S&K&ft't < S& 

ttir-yzL— tP-tf^S S ht'USi'?., 

■5©T'&S 0 

-r-'JWMI/OT’ H U*T&3 

-f-i/ifg^'HI 13-1 7£>S 0 

^ClTa*^iZ'S*©(±, lA01 H #itilO BREAK m^TS> So 7 

fc | SHIFT | + I BREAK | ( fe L < te fCTRLl +fCl ) a*ff £ tifz 0 , *-fey b 3 y Pn-;w 
D LTKlff^SOSSb* kgftk'tZ Low ( = 0 ) e*S©T*5o ioT 
;;§fx7^L^t, *-fe y ^v'fyAtDlo 

tK5otU70ti 

So S© i -? ^T°d 7 > -7 Ati7;i/n 7 n y b n— A-nJil;# XI "Ctt fP££lfE %<D~C$> 



12 13-1 x-7IBH*<Z>I/0 7 buy 




300 ^KtcffiSXl 



• 5 0 tz 

ht aoTfe < £ t h&5 t, -9-7" CPU (DZ. btfhZtf, i¥L < BIN #£JITV> 

tztzZtz^ o 



OilTiftS 

0 13-2 #9£Vi 0 Ilft^Xl ©-f-7 ,, C:fcU£ 0 t ltJbS, Ofcl^fB 

m-m&tnh, itBK*a 0 

0t{) 



111 13-2 r 0jt r lj(7)1f-§- 




•CBIffiKO, 1 : !: et So 

£ -f tt* < UTlbh', 0 13-2 X -5 r - rcSB^-r 5 fc £*>?>, aa K 

7-f S. >/^otr*l27 h ^ L -* H L C 

^©-e&So 

i^Cictf^T$)So &?&#*. fcft-S**, ±Mli, 

1) iE^<DiL%±tf r ) (L -» H) 

2) 185/is|#0 

3) if^l^tLft^O, H^^l 

fcv»-5¥ffiT*4. r*'fe±**9*»e.*^T**!)*T©^|Hl*W-3Tfev»v» 

U^&v^J **U4v»tf*v»©-CJbS 0 * 

tvtzt/'ixzfedmmtft't'— /^tm^rL£5frt>'vjbz> 0 [i®(D-y-'yyv>?^ 
tzV(D¥®*7~i'~)'&Z1xztit£t-rz t, Oil *WtfrW\&dWMtfh~tzhZ.- 
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*.<JR3E-3TV»4©^6, k9 2bit1*ttcnT^-©^. b*»U XSvi-tMrO^t-tir ^ A. 

C* ! fAfir — 7°y — Fi7- -CJS^B £.!.*:£ fc*s££o tcifTUi'n* D XA£g£;tti 

tf, S>©t #©7°a7*7 A^miRf# §*>& Ltl#^ ! J & if t W 5 Afe v»Si»fe bn* 

1^0 SSfre*©^ — OTfcS'So £©#«, ^©A-frAA* g^-e s 

31^^00, 3o3 k&efT^T bSSOTfcofco 
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•r- 7 <rt IBSR 7 *-■? '7 hT *3 

roj t ru 

£>£:&*, r>-H:©3rfc LTv>§&9 7 7 ^f V'Otfe 

6 0 T-7ltt'zfi'bmfri£ltobtl5frftt>'bti:i'<nT, p7-SeA,T^S©(i 

7?^^^:©^? kr-7©^#©^? J fcv^ d 

bt£ \^frbXhb 0 -?£ D -5 Ct *7r^^' ©tetDttio ! J h 

^v^#SiJ4'V-^^g^©7-f 0 ^Xr A-CitoT < 

HI 13-3 *i— : #*#& XI HuBASICr©7*-Ty bTJbSo MZ t*© 
7*-v<y b fe® 13-4 C^tTiJ^fCo ^tl^teTOh ! MZJ’84 %■ 7 E#Kif«£*lTV> 
tzt)<DX'h& o 



HI 13-3 XI HuBASIC tfflf-77*-?7 h 




HI 13-4 MZ T<Dt- — 77 h 




~7U"j <7 \Z 

M < 



7”'—^ 7*P *y ^ 



*o* 


T 


*0" 


T 


Hi 

1 

vr 


fl'Vlfh 


T 


*0* 


t—9 


fi'jlVL 


T 


11000® 


20® 


20® 


1® 


XA*< h 


2'U h 


1® 


256® 


XA*< h 


2 AW h 


1® 



(DUfrmfLt, apss © fcftCjfcii'rJbSo apss, mr-^siaiLj affile w^t 
bsjitf r^sso t***e>*a»#«*ttaitT±ssj tv>5 z.ttzfrbx&2> 0 
^ >7*7-'>3 >gPt7"“^a5*S3tESfcW-r*So £*i6©3££W£1#^iliUT*3 
*>64 77*7-'73 fc 9 fcf£BJ-f£ 0 

4>7t7— >3 VgRill 13-3 Cf Itifel. i ^ &v -?*>£$£}£ 3 0 oj D f 1 J * s 



J02 sCifctciii* XI 




1000 ®, |0J*S40{@, Sfc TlJ **40ffl, r 1 J tfUBTfcSo ^© 

<DAH>7 *S~'> a hfttt 32 /U 

■5> o 

ST, U'U H (DmnUT&Zo 

SfeO**#*»fl5o ru *U®T^So &■££© S-fcfc ©**&£*>£ fc, 

Ztlitf— ^**1ffcfi&ej$0®b3 OSD, 
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C, JlftHU 77*7-73 77*0 y 7 iZ$>6 32 /\M F ©T-^ T lj OfifSTC 

£>S„ dOttfigllfcilfcfc, High, Low ©HBlc&oT^So oS DT 1 J* J 300® = 12C„ 
£© 2'U Mi 01 H , 2C H ©JHC3feA/Tft:'£ U 77*7 — 7 3 7©:ir-£-{i 
32 /nM hflfi^.fWrffc 100„T**a*S) o Z80 ThDilft© 2 hftflIkttaMBftOT* 

•?> o 

^77^-'>3 7®i*tC flj **lEI#*»4vr»*)So otUiX F y^t*7 F t 
Df lift •S o 
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. Z80 









.PHASE 


0BC00H 






1A01 




FMCMT 


EQU 


1A01H 






1A03 




C8255 


EQU 


1A03H 






1A02 




TOCMT 


EQU 


1A02H 






0072 




PATRMM 


EQU 


007 2H 


*, LD 


(HL) , D : NOP 


5 1ED 




PATRIO 


EQU 


51EDH 


; OUT 


(C) ,D 


0056 




PATWMM 


EQU 


0056H 


*, LD 


D, (HL) : NOP 


50ED 




PATWIO 


EQU 


50EDH 


; in 


D, (C) 


0041 




X1L 


EQU 


65 






00 ID 




X1S 


EQU 


29 






002E 




X1W 


EQU 


46 










; 4 JUMP 


TABLES 








BC00 


C3 BC27 


WHEAD: 


JP 


WHEAD 1 






BC03 


C3 BC4A 


WBODY : 


JP 


WBODY 1 






BC06 


C3 BD30 


RHEAD: 


JP 


RHEAD 1 






BC09 


C3 BD47 


RBODY : 


JP 


RBODY 1 






BC0C 


BE60 


FCBAD : 


DW 


LAST 






BC0E 


0000 


BDYLEN : 


DW 


0000H 






BC10 


00 


FLAG: 


DB 


0 


;MZ or 


XI 


BC1 1 


41 


LONGH : 


DB 


X1L 


; LONG 


HIGH 


BC12 


33 


LONGL: 


DB 


X1L-14 


; LONG 


LOW 


BC1 3 


ID 


SHORTH : 


DB 


X1S 


; SHORT 


HIGH 


BC1 4 


0F 


SHORTL : 


DB 


X1S-14 


; SHORT 


L 


BC1 5 


2E 


W185 : 


DB 


X1W 


; SAMPLING TIME 


BC16 


05 


AFTERW : 


DB 


5 


; SKIP 




BC17 




ISET: 






; FCB MARK 


BC17 


03E8 


I MARK 1 : 


DW 


1000 






BC19 


0028 


IMARK2 : 


DW 


40 






BC1B 


0028 


I MARK 3: 


DW 


40 






BC1D 




DSET : 






; BODY 


MARK 


BC ID 


0BB8 


DM ARK 1 : 


DW 


3000 






BC1F 


0014 


DMARK2 : 


DW 


20 






BC2 1 


0014 


DM ARK 3 : 


DW 


20 






BC23 


0020 


FCBLEN : 


DW 


32 


; FCB LENGTH 


BC25 




SUM: 


DS 


2 


; WORK 


AREA 






;***** 


WRITE ROUTINE BEGIN ***** 


BC27 


AF 


WHEAD1 : 


XOR 


A 


; WRITE 


HEAD 


BC28 


01 1 A03 




LD 


BC , C8255 


; 8 2 5 5 


CONTROLE 


BC2B 


ED 79 




OUT 


(C) i A 


•.WRITE 


’L’ 


BC2D 


21 2 1E4 




LD 


HL , 8676 


; COUNTER 


BC30 


CD BE3F 




CALL 


WAITXX 


‘.WRITE 


8 SEC GAP 


BC33 


F3 




DI 








BC34 


21 0056 




LD 


HL, PATWMM 




BC37 


22 BCBB 




LD 


( PATW ) , HL 


; PATCH! 


BC3A 


2 A BC0C 




LD 


HL, (FCBAD) 




BC3D 


ED 5B BC23 




LD 


DE, (FCBLEN) 




BC4 1 


FD 21 BC 1 7 




LD 


IY, ISET 






BC45 


CD BC6A 




CALL 


WRITGO 


‘.WRITE 


HEAD 


BC48 


FB 




El 








BC49 


C9 




RET 








BC4A 


21 0100 


WBODY 1 : 


LD 


HL, 1 00H 


'.WRITE 


BODY 


BC4D 


CD BE3F 




CALL 


WAITXX 


; WRITE 


GAP 


BC50 


21 50ED 


’ 


LD 


HL, PATWIO 




BC53 


22 BCBB 




LD 


(PATW) , HL 


; PATCH ! 


BC56 


21 FF00 




LD 


HL , 0000H 


-100H 


; 0FF00H 


BC59 


01 4000 




LD 


BC, 4000H 




; GRAM 


BC5C 


ED 5B BC0E 




LD 


DE, (BDYLEN) 




BC60 


FD 21 BC1D 




LD 


IY , DSET 







J04 XI 



BC64 


F3 




DI 




BC65 


CD BC6A 




CALL 


WRITGO ; WRITE BODY 


BC68 


FB 




El 




BC69 


C9 




RET 




BC6A 


D9 


WRITGO: 


: EXX 




BC6B 


FD 4E 00 




LD 


C, ( IY+0 ) 


BC6E 


FD 46 01 




LD 


B, (IY+1 ) 


BC71 


37 




SCF 


; CARRY= 1 


BC7 2 


CD BCE3 




CALL 


WMARK ; WRITE MARK1 


BC7 5 


FD 4E 02 


’ 


LD 


C, ( IY+2 ) 


BC7 8 


FD 46 03 




LD 


B, ( IY+3 ) 


BC7B 


B7 




OR 


A ; CARRY =0 


BC7C 


CD BCE3 




CALL 


WMARK ; WRITE MARK2 


BC7F 


FD 4E 04 


* 


LD 


C, ( IY+4 ) 


BC82 


FD 46 05 




LD 


B , ( IY+5 ) 


BC85 


37 




SCF 


; CARRY= 1 


BC86 


CD BCE3 




CALL 


WMARK ; WRITE MARK 3 


BC89 


37 


’ 


SCF 


; CARRY= 1 


BC8A 


CD BCFB 




CALL 


WBIT ; START BIT 


BC8D 


D9 


’ 


EXX 




BC8E 


CD BC96 




CALL 


WBYTES ; HONTAI 


BC9 1 


37 


’ 


SCF 


; CARRY= 1 


BC92 


CD BCFB 




CALL 


WBIT ; STOP BIT 


BC95 


C9 




RET 




BC96 


D9 


WBYTES : 


EXX 




BC97 


21 0000 




LD 


HL.0000H ; CHECK SUM 


BC9A 


D9 




EXX 




BC9B 


CD BCB5 




CALL 


WBS 1 


BC9E 


D9 


’ 


EXX 




BC9F 


7C 




LD 


A , H 


BCA0 


65 




LD 


H , L 


BCA1 


6F 




LD 


L , A ; SWAP H-L 


BCA2 


22 BC25 




LD 


(SUM) , HL 


BCA5 


11 0002 




LD 


DE , 2 


BCA8 


21 0056 




LD 


HL , PATWMM 


BCAB 


22 BCBB 




LD 


( PATW ) , HL ; PATCH! 


BCAE 


21 BC25 




LD 


HL , SUM 


BCB1 


CD BCB5 




CALL 


WBS1 ; WRITE CHECK SUM 


BCB4 


C9 




RET 




BCB5 


D5 


WBS 1 : 


PUSH 


DE 


BCB6 


78 




LD 


A , B 


BCB7 


FE 40 




CP 


40H ; BC < 4000H ? 


BCB9 


38 05 




JR 


C, MRAMW ; THEN JUMP 


BCBB 


ED 50 


PATW : 


IN 


D , ( C ) ; GET FROM GRAM 


BCBD 


C3 BCC1 




JP 


MRAMW 1 


BCC0 


56 


MRAMW : 


LD 


D , ( HL ) ; GET FROM MRAM 


BCC1 


23 


MRAMW1 : 


INC 


HL 


BCC2 


03 




INC 


BC ; INC POINTERS 


BCC3 


CD BCCD 




CALL 


WBYTE ; WRITE 1 BYTE 


BCC6 


D1 




POP 


DE 


BCC7 


IB 




DEC 


DE ; DEC COUNTER 


BCC8 


7A 




LD 


A , D 


BCC9 


B3 




OR 


E ; CHECK IT 


BCCA 


20 E9 




JR 


NZ , WBS 1 


BCCC 


C9 




RET 




BCCD 


C5 


WBYTE : 


PUSH 


BC ; WRITE 1 BYTE 


BCCE 


37 




SCF 




BCCF 


CD BCFB 




CALL 


WBIT 


BCD2 


06 08 


* 


LD 


B , 8 ; 8 BITS 


BCD4 


CB 12 


WBYTE1 : 


RL 


D 


BCD6 


D9 




EXX 




BCD7 


D2 BCDB 




JP 


NC.WBYTE2 


BCDA 


23 




INC 


HL ; INC CHECK SUM 


BCDB 


D9 


WBYTE2 : 


EXX 




BCDC 


CD BCFB 




CALL 


WBIT ; WRITE 1 BIT 


BCDF 


10 F3 




DJNZ 


WBYTE 1 


BCE1 


Cl 




POP 


BC 


BCE2 


C9 




RET 




BCE3 


F5 


WMARK: 


PUSH 


AF ; SAVE CARRY 



305 



BCE4 


3A BC 1 0 




LD 


A , ( FLAG ) ; GET FLAG 


BCE7 


CE 00 




ADC 


A , 00H 




BCE9 


IF 




RRA 


; IF MZ CY REVERSE 


BCEA 


F5 


WMARK1 : 


: PUSH 


AF 




BCEB 


C5 




PUSH 


BC 




BCEC 


CD BCFB 




CALL 


WBIT 




BCEF 


Cl 




POP 


BC 




BCF0 


0B 




DEC 


BC 




BCF1 


78 




LD 


A , B 




BCF2 


B1 




OR 


C ; COUNTER 




BCF3 


28 03 




JR 


Z , WMARK2 




BCF5 


FI 




POP 


AF 




BCF6 


18 F2 




JR 


WMARK1 




BCF8 


FI 


WMARK2 : 


POP 


AF 




BCF9 


FI 




POP 


AF 




BCFA 


C9 




RET 






BCFB 




WBIT : 


; CY-> 


" 1 " , NON CY-> "0" 




BCFB 


C5 




PUSH 


BC 


11 


BCFC 


30 09 




JR 


NC , WBIT0 


12 or 7 


BCFE 


3A BC12 




LD 


A, (LONGL) 


13 


BD0 1 


08 




EX 


AF , AF ’ 


4 


BD02 


3A BC1 1 




LD 


A, (LONGH) 


13 


BD05 


18 0B 




JR 


WBIT1 


12 


BD07 


38 09 


WBIT0 : 


JR 


C.WBITl 


12 or 7 


BD09 


3A BC1 4 




LD 


A, ( SHORTL ) 


13 


BD0C 


08 




EX 


AF, AF’ 


4 


BD0D 


3A BC1 3 




LD 


A, (SHORTH) 


13 


BD 1 0 


18 00 




JR 


WBIT1 


12 


BD12 


01 1 A03 


WBIT1 : 


LD 


BC , C8255 


10 


BD1 5 


F5 




PUSH 


AF 


11 


BD16 


3E 01 




LD 


A, 1 


7 


BD18 


ED 79 


* 


OUT 


( c ) , A ; 12 




BD1 A 


FI 




POP 


AF ; 10 




BD1B 


CD BE 5 2 




CALL 


WAITX ; 17 




BD1E 


AF 




XOR 


A ; 4 




BD1F 


ED 7 9 


* 


OUT 


( C ) , A ; 12 




BD2 1 


08 




EX 


AF , AF ’ ; 4 




BD22 


CD BE52 




CALL 


WAITX ; 1 7 




BD25 


01 1A01 




LD 


BC , FMCMT ; 10 




BD28 


ED 78 




IN 


A , ( c ) ; 12 




BD2A 


0F 




RRCA 


;4 




BD2B 


D2 BE0D 




JP 


NC, BREAK; 10 




BD2E 


Cl 




POP 


BC ; 10 




BD2F 


C9 




RET 


; 10 








;***** 


WRITE 


ROUTINE END ***** 








;♦**** 


READ ROUTINE BEGIN ***** 




BD30 


F3 


RHEAD1 : 


: DI 


; READ HEAD 


BD3 1 


21 0072 




LD 


HL , PATRMM 




BD34 


22 BDC6 




LD 


( PATR ) , HL 


; PATCH ! 


BD37 


2A BC0C 




LD 


HL, (FCBAD) 


; DCB ADD. 


BD3A 


ED 5B BC23 




LD 


DE , ( FCBLEN ) 


; LENGTH 


BD3E 


FD 21 BC17 




LD 


IY , ISET 




BD42 


CD BD6 1 




CALL 


READGO 




BD45 


FB 




El 






BD46 


C9 




RET 






BD47 


F3 


RB0DY1 


: DI 




; READ BODY 


BD48 


21 5 1ED 




LD 


HL , PATRIO 




BD4B 


22 BDC6 




LD 


( PATR ) , HL 


; PATCH ! 


BD4E 


21 FF00 




LD 


HL , 0000H-100H 


; DATA ADD. 


BD51 


01 4000 




LD 


BC , 4000H 




BD54 


ED 5B BC0E 




LD 


DE , ( BDYLEN ) 


; LENGTH 


BD58 


FD 21 BC1D 




LD 


IY , DSET 




BD5C 


CD BD6 1 




CALL 


READGO 




BD5F 


FB 




El 






BD60 


C9 




RET 






BD6 1 


D9 


READGO: 


: EXX 






BD62 


CD BDFD 


REDGOl 


: CALL 


COUNT0 ; COUNT "0" 


BD65 


FD 5E 02 




LD 


E, ( IY+2 ) 




BD68 


FD 56 03 




LD 


D, ( IY+3 ) 




BD6B 


B7 




OR 


A 




BD6C 


ED 52 




SBC 


HL , DE ; CHECK MARK 2 


BD6E 


20 F2 




JR 


NZ, REDGOl 
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BD7 0 


FD 


46 04 


; 


LD 


B, ( IY+4 ) 


BD73 


05 






DEC 


B 


BD7 4 


3A 


BC1 0 




LD 


A, (FLAG) 


BD7 7 


57 






LD 


D , A 


BD7 8 


CD 


BE 14 


REDG02 : 


CALL 


RBIT 


BD7B 


3E 


00 




LD 


A, 00H 


BD7D 


17 






RLA 


;Xl-> 1 ,MZ->0 


BD7E 


BA 






CP 


D ;BIT = FLAG ? 


BD7F 


CA 


BE0D 




JP 


Z, BREAK ; THEN BREAK 


BD82 


10 


F4 




DJNZ 


REDG02 


BD84 


CD 


BE1 4 


9 


CALL 


RBIT ; READ LAST MARK 


BD87 


D2 


BD6 2 




JP 


NC , REDGOl 


BD8A 


D9 




9 


EXX 




BD8B 


CD 


BDA2 




CALL 


RBYTES ; READ HONTAI 


BD8E 


ED 


5B BC25 


9 


LD 


DE, (SUM) 


BD92 


7A 






LD 


A, D 


BD93 


53 






LD 


D , E 


BD94 


5F 






LD 


E , A ; SWAP H-L 


BD95 


B7 






OR 


A 


BD96 


ED 


52 




SBC 


HL.DE ; CHECK SUM 


BD98 


C2 


BE11 




JP 


NZ , CSERR 


BD9B 


CD 


BE 1 4 


9 


CALL 


RBIT ; STOP BIT 


BD9E 


D2 


BE0D 




JP 


NC , BREAK 


BDA1 


C9 






RET 




BDA2 


D9 




RBYTES : 


EXX 




BDA3 


21 


0000 




LD 


HL , 0000H ; CHECK SUM 


BDA6 


D9 






EXX 




BDA7 


CD 


BDBD 




CALL 


RBS1 ; READ HONTAI 


BDAA 


D9 




9 


EXX 




BDAB 


E5 






PUSH 


HL 


BDAC 


11 


0002 




LD 


DE, 2 


BDAF 


21 


0072 




LD 


HL , PATRMM 


BDB2 


22 


BDC6 




LD 


( PATR ) , HL ; PATCH! 


BDB5 


21 


BC25 




LD 


HL , SUM 


BDB8 


CD 


BDBD 




CALL 


RBS 1 ; READ CHECK SUM 


BDBB 


El 






POP 


HL 


BDBC 


C9 






RET 




BDBD 


D5 




RBS 1 : 


PUSH 


DE 


BDBE 


CD 


BDD5 




CALL 


RBYTE 


BDC1 


78 






LD 


A , B 


BDC2 


FE 


40 




CP 


40H ;BC < 4000H ? 


BDC4 


38 


05 




JR 


C, MRAMR ; THEN JUMP 


BDC6 


ED 


51 


PATR : 


OUT 


( C ) , D ; STORE TO GRAM 


BDC8 


C3 


BDCC 




JP 


MRAMR 1 


BDCB 


72 




MRAMR : 


LD 


( HL ) , D ; STORE TO MRAM 


BDCC 


23 




MRAMR1 : 


INC 


HL 


BDCD 


03 






INC 


BC 


BDCE 


D1 






POP 


DE 


BDCF 


IB 






DEC 


DE 


BDD0 


7A 






LD 


A , D 


BDD1 


B3 






OR 


E ; CHECK COUNTER 


BDD2 


20 


E9 




JR 


NZ , RBS 1 


BDD4 


C9 






RET 




BDD5 


C5 




RBYTE : 


PUSH 


BC ; READ 1 BYTE 


BDD6 


CD 


BE 14 




CALL 


RBIT 


BDD9 


30 


32 




JR 


NC, BREAK ; START BIT 


BDDB 


16 


00 


* 


LD 


D , 00H ; CLEAR DATA 


BDDD 


06 


08 




LD 


B , 8 


BDDF 


CD 


BE1 4 


RBYTE 1 : 


CALL 


RBIT 


BDE2 


D9 






EXX 




BDE3 


30 


01 




JR 


NC , RBYTE2 


BDE5 


23 






INC 


HL ; INC CHECK SUM 


BDE6 


D9 




RBYTE2 : 


EXX 




BDE7 


CB 


12 




RL 


D ; STORE 1 BIT 


BDE9 


10 


F4 




DJNZ 


RBYTE 1 


BDEB 


Cl 






POP 


BC 


BDEC 


C9 






RET 




BDED 


21 


0000 


COUNT 1 : 


LD 


HL , 0000H 


BDF0 


3A 


BC 1 0 




LD 


A, (FLAG) 



§M 3 ¥ r-fua-r 307 



BDF3 


B7 




OR 


A 


BDF4 


20 10 




JR 


NZ.CT01 ; IF MZ COUNT0 


BDF6 


CD BE 14 


CT1 1 : 


CALL 


RBIT 


BDF9 


D0 




RET 


NC 


BDFA 


23 




INC 


HL 


BDFB 


18 F9 




JR 


CT1 1 


BDFD 


21 0000 


COUNT0 


: LD 


HL , 0000H 


BE00 


3A BC1 0 




LD 


A , ( FLAG ) 


BE03 


B7 




OR 


A 


BE04 


20 F0 




JR 


NZ.CTll ; IF MZ COUNT 1 


BE06 


CD BE 14 


CT0 1 : 


CALL 


RBIT 


BE09 


D8 




RET 


C 


BE0A 


23 




INC 


HL 


BE0B 


18 F9 




JR 


CT01 


BE0D 


3E ID 


BREAK : 


LD 


A, 29 ; ERR CODE 


BE0F 


DD E9 




JP 


(IX) 


BE1 1 


AF 


CSERR : 


XOR 


A ; UNPRINTABLE 


BE 12 


DD E9 




JP 


(IX) 


BE1 4 


C5 


RBIT : 


PUSH 


BC 


BE1 5 


01 1A01 




LD 


BC , FMCMT 


BE 18 


ED 78 


RBIT1 : 


IN 


A, (C) ; IN DATA 


BE1A 


0F 




RRCA 




BE IB 


30 F0 




JR 


NC , BREAK 


BE1D 


0F 




RRCA 




BE1E 


38 F8 




JR 


C , RBIT1 ; WHILE ( HIGH ) DO 


BE20 


ED 78 


RBIT2 : 


IN 


A , ( C ) ; 1 2 


BE22 


0F 




RRCA 


;4 


BE23 


D2 BE0D 




JP 


NC, BREAK ; 1 0 


BE26 


0F 




RRCA 


; 4 


BE27 


D2 BE20 




JP 


NC , RBIT2 ; 10 










; WHILE (LOW) DO 






•NOW I 


GOT ’ EDGE * ! 


BE2A 


3A BC15 




LD 


A , ( W185 ) ; 7 


BE2D 


CD BE52 




CALL 


WAITX ; 17 


BE30 


ED 78 




IN 


A, (C) 


BE 3 2 


0F 




RRCA 




BE33 


D2 BE0D 




JP 


NC, BREAK 


BE36 


0F 




RRCA 




BE37 


3 A BC16 




LD 


A, ( AFTERW ) ; SKIP TIME 


BE3A 


DC BE52 




CALL 


C, WAITX 


BE3D 


Cl 




POP 


BC 


BE3E 


C9 




RET 





***** READ routine end ***** 
***** WAIT ROUTINE ***** 



BE3F 


01 1A01 


WAITXX : 


LD 


BC, FMCMT; 10 




BE42 


ED 78 


WAPSS : 


IN 


A , ( C ) ; 1 2 




BE44 


0F 




RRCA 


; 4 




BE45 


D2 BE0D 




JP 


NC, BREAK; 10 




BE48 


AF 




XOR 


A ; 4 




BE49 


CD BE 5 2 




CALL 


WAITX ; 17+14*256+3 


BE4C 


2B 




DEC 


HL ; 6 




BE4D 


1C 




LD 


A , H ; 4 




BE4E 


B5 




OR 


L ; 4 




BE4F 


20 FI 




JR 


NZ, WAPSS ; 12 


or 7 


BE5 1 


C9 




RET 


; 10 








; DAITAI 


HL*3688 






BE52 


F5 


WAITX: 


PUSH 


AF 


; 1 1 


BE53 


3D 


WAITXL : 


DEC 


A 


; 4 


BE5 4 


C2 BE53 




JP 


NZ, WAITXL 


; 10 


BE57 


FI 


’ 


POP 


AF 


; 10 


BE58 


C9 




RET 




; 10 






; 1 l+14*Acc+20 










; Acc=46 


->644+31= 


675 






MACRO-80 3.44 


09-Dec-s'l 


PAGE 


1-7 





BE59 




DS 


7 


BE60 


LAST: 


DS 

END 


0 
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BC00 


C3 


27 


BC 


C3 


4 A 


BC 


C3 


30 


62 


BC08 


BD 


C3 


47 


BD 


60 


BE 


00 


00 


A2 


BC 1 0 


00 


41 


33 


ID 


0F 


2E 


05 


E8 


BB 


BC 1 8 


03 


28 


00 


28 


00 


B8 


0B 


14 


2A 


BC20 


00 


14 


00 


20 


00 


1A 


1A 


AF 


17 


BC28 


01 


03 


1A 


ED 


79 


21 


E4 


21 


AA 


BC30 


CD 


3F 


BE 


F3 


21 


56 


00 


22 


56 


BC38 


BB 


BC 


2A 


0C 


BC 


ED 


5B 


23 


D4 


BC40 


BC 


FD 


21 


17 


BC 


CD 


6A 


BC 


A0 


BC48 


FB 


C9 


21 


00 


01 


CD 


3F 


BE 


B0 


BC50 


21 


ED 


50 


22 


BB 


BC 


21 


00 


18 


BC58 


FF 


01 


00 


40 


ED 


5B 


0E 


BC 


52 


BC60 


FD 


21 


ID 


BC 


F3 


CD 


6A 


BC 


DD 


BC68 


FB 


C9 


D9 


FD 


4E 


00 


FD 


46 


2B 


BC7 0 


01 


37 


CD 


E3 


BC 


FD 


4E 


02 


FI 


BC7 8 


FD 


46 


03 


B7 


CD 


E3 


BC 


FD 


66 


SUM: 


D9 


80 


90 


9D 


3E 


3C 


75 


78 C262 


BC80 


4E 


04 


FD 


46 


05 


37 


CD 


E3 


81 


BC88 


BC 


37 


CD 


FB 


BC 


D9 


CD 


96 


B3 


BC90 


BC 


37 


CD 


FB 


BC 


C9 


D9 


21 


3A 


BC98 


00 


00 


D9 


CD 


B5 


BC 


D9 


7C 


6C 


BCA0 


65 


6F 


22 


25 


BC 


11 


02 


00 


EA 


BCA8 


21 


56 


00 


22 


BB 


BC 


21 


25 


56 


BCB0 


BC 


CD 


B5 


BC 


C9 


D5 


78 


FE 


0E 


BCB8 


40 


38 


05 


ED 


50 


C3 


Cl 


BC 


FA 


BCC0 


56 


23 


03 


CD 


CD 


BC 


D 1 


IB 


BE 


BCC8 


7 A 


B3 


20 


E9 


C9 


C5 


37 


CD 


C8 


BCD0 


FB 


BC 


06 


08 


CB 


12 


D9 


D2 


4D 


BCD8 


DB 


BC 


23 


D9 


CD 


FB 


BC 


10 


27 


BCE0 


F3 


Cl 


C9 


F5 


3A 


10 


BC 


CE 


46 


BCE8 


00 


IF 


F5 


C5 


CD 


FB 


BC 


Cl 


IE 


BCF0 


0B 


78 


B 1 


28 


03 


FI 


18 


F2 


5A 


BCF8 


FI 


FI 


C9 


C5 


30 


09 


3A 


12 


F5 


SUM: 


DD 


D3 


D0 


37 


2A 


8D 


0F 


52 7B60 


BD00 


BC 


08 


3 A 


11 


BC 


18 


0B 


38 : 


26 


BD08 


09 


3 A 


14 


BC 


08 


3 A 


13 


BC : 


24 


BD10 


18 


00 


01 


03 


1A 


F5 


3E 


01 : 


6 A 


BD 1 8 


ED 


79 


FI 


CD 


52 


BE 


AF 


ED : 


D0 


BD20 


79 


08 


CD 


52 


BE 


01 


01 


1A : 


7 A 


BD28 


ED 


78 


0F 


D2 


0D 


BE 


Cl 


C9 : 


9B 


BD30 


F3 


21 


72 


00 


22 


C6 


BD 


2 A : 


55 


BD38 


0C 


BC 


ED 


5B 


23 


BC 


FD 


21 : 


0D 



BD40 


17 


BC 


CD 


61 


BD 


FB 


C9 


F3 


75 


BD4 8 


21 


ED 


51 


22 


C6 


BD 


21 


00 


25 


BD50 


FF 


01 


00 


40 


ED 


5B 


0E 


BC 


52 


BD58 


FD 


21 


ID 


BC 


CD 


61 


BD 


FB 


DD 


BD60 


C9 


D9 


CD 


FD 


BD 


FD 


5E 


02 


86 


BD68 


FD 


56 


03 


B7 


ED 


52 


20 


F2 


5E 


BD7 0 


FD 


46 


04 


05 


3A 


10 


BC 


57 


A9 


BD7 8 


CD 


14 


BE 


3E 


00 


17 


BA 


CA 


78 


SUM: 


F3 


6C 


48 


92 


61 


30 


30 


CF D3FE 


BD80 


0D 


BE 


10 


F4 


CD 


14 


BE 


D2 


40 


BD88 


62 


BD 


D9 


CD 


A2 


BD 


ED 


5B 


6C 


BD90 


25 


BC 


7 A 


53 


5F 


B7 


ED 


52 


03 


BD98 


C2 


11 


BE 


CD 


14 


BE 


D2 


0D 


0F 


BDA0 


BE 


C9 


D9 


21 


00 


00 


D9 


CD 


27 


BDA8 


BD 


BD 


D9 


E5 


11 


02 


00 


21 


6C 


BDB0 


72 


00 


22 


C6 


BD 


21 


25 


BC 


19 


BDB8 


CD 


BD 


BD 


El 


C9 


D5 


CD 


D5 


68 


BDC0 


BD 


78 


FE 


40 


38 


05 


ED 


51 


EE 


BDC8 


C3 


CC 


BD 


72 


23 


03 


D1 


IB 


D0 


BDD0 


7A 


B3 


20 


E9 


C9 


C-5 


CD 


14 


A5 


BDD8 


BE 


30 


32 


16 


00 


06 


08 


CD 


11 


BDE0 


14 


BE 


D9 


30 


01 


23 


D9 


CB 


A3 


BDE8 


12 


10 


F4 


Cl 


C9 


21 


00 


00 


Cl 


BDF0 


3A 


10 


BC 


B7 


20 


10 


CD 


14 


CE 


BDF8 


BE 


D0 


23 


18 


F9 


21 


00 


00 


E3 


SUM: 


E6 


60 


6B 


FF 


80 


86 


6E 


37 795A 


BE00 


3A 


10 


BC 


B7 


20 


F0 


CD 


14 : 


AE 


BE08 


BE 


D8 


23 


18 


F9 


3E 


ID 


DD : 


02 


BE 1 0 


E9 


AF 


DD 


E9 


C5 


01 


01 


1A : 


3F 


BE 18 


ED 


78 


0F 


30 


F0 


0F 


38 


F8 : 


D3 


BE20 


ED 


78 


0F 


D2 


0D 


BE 


0F 


D2 : 


F2 


BE28 


20 


BE 


3A 


15 


BC 


CD 


52 


BE : 


C6 


BE30 


ED 


78 


0F 


D2 


0D 


BE 


0F 


3A : 


5A 


BE38 


16 


BC 


DC 


52 


BE 


Cl 


C9 


01 : 


49 


BE40 


01 


1A 


ED 


78 


0F 


D2 


0D 


BE : 


2C 


BE4 8 


AF 


CD 


52 


BE 


2B 


7C 


B5 


20 : 


08 


BE50 


FI 


C9 


F5 


3D 


C2 


53 


BE 


FI : 


B0 


BE58 


C9 


00 


00 


00 


00 


00 


00 


00 : 


C9 


SUM: 


48 


29 


33 


66 


5E 


E9 


DC 


9D A9B4 
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100 CLEAR &HBC00 
110 DEFUSR0=&HBC00 : ’WRITE FCB 
120 DEFUSR1=&HBC03 : ’WRITE BODY 
130 DEFUSR2=&HBC06 : ’READ FCB 
140 DEFUSR3=&HBC09 : 'READ BODY 
150 » 

160 INIT 

170 IF MEM$ (&HBC00 , 3 ) <>HEXCHR$ ( "C3 27 BC" ) THEN LOADM "TAPE. OBJ" 

180 ’ 

190 ’for Xll/U'tU J 2700 - 

200 MEM$ ( &.HBC 10,16) =HEXCHR$ ( " 00 41 33 ID 0F 2E 05 E8 03 28 00 28 00 B8 0B 14") 
210 MEM$ ( &HBC20 , 5 ) =HEXCHR$("00 14 00 20 00") 

220 ’ 

230 ’for S-OS "T:":2400 ** - XI \ sT-l/-* 9* v9') Zb 

240 ’ MEM$ ( &HBC 10, 16) =HEXCHR$ ("01 41 33 ID 0F 2E 01 F0 55 28 00 28 00 F8 2A 14") 
250 ’ MEM$ ( &HBC20 , 5 ) =HEXCHR$("00 14 00 80 00") 

260 ’ 

270 ’for MZ-80B/2000, 2200:2000 - 

280 ’ MEM$ ( &HBC 10, 16) =HEXCHR$ ("01 58 56 28 26 40 05 F0 55 28 00 28 00 F8 2A 14") 
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290 ’ MEM$ ( &.HBC20 , 5 ) =HEXCHR$ ( " 00 14 00 80 00") 

300 1 

310 ’for MZ-80K/C/ 1200/700/1500: 1200 - 

320 ’ MEM$ ( &HBC1 0 ,16) =HEXCHR$ ("01 83 81 3E 3C 5A 05 F0 55 28 00 28 00 F8 2A 14") 
330 ’ MEM$ ( &HBC20 , 5 ) =HEXCHR$("00 14 00 80 00") 

340 ’ 

350 INPUT "R/W" ; A$ : IF A$="R" THEN GOSUB "READ " : GOTO 350 
360 IF A$="W" THEN GOSUB"WRITE" : GOTO 350 
370 GOTO 350 
380 ’ 

390 LABEL "READ" 

400 CMT=2 : ’ PLAY 

410 D$=USR2( "" ) : ’READ FOB 

420 CMT= 1 : ’ CSTOP 

430 PRINT #0 "FOUND" ,MEM$(&HBE61 , 16) , 

440 L=CVI ( MEM$ ( &HBE60+ 1 8,2) ) : ’LENGTH 
450 S=CVI ( MEM$ ( &HBE60+20 , 2 ) ) : ’ START ADDRESS 
460 X=CVI ( MEM$ ( &HBE60+22 , 2 ) ) : ’ JUMP ADDRESS 
470 PRINT #0 RIGHTS ( " 000 " + HEXS ( S ) , 4 ) , 

480 PRINT #0 RIGHTS ( " 000 " +HEX$ ( S+L- 1 ) , 4 ) , 

490 PRINT #0 RIGHTS ( " 000 " +HEXS ( X ) , 4 ) 

500 * 

5 1 0 MEMS ( &.HBC0E , 2 ) =MEM$ ( &HBE60+ 1 8,2):’ COPY LENGTH 
520 CMT=2 : ’PLAY 

530 PRINT #0 "LOADING" , MEM$ ( &HBE6 1 , 16) 

540 D$=USR3( "" ) : ’READ BODY 
550 CMT=1: ’CSTOP 
560 RETURN 
570 ’ 

580 LABEL"WRITE" 

590 PRINT #0 "WRITING" , MEMS (&HBE61 , 16) 

600 CMT=10 : ’WRITE 
610 D$=USR0( ""): ’WRITE FCB 
620 CMT=1 : ’CSTOP 
630 ’ 

640 MEMS ( &HBC0E , 2 ) =MEM$ ( &HBE60+ 18 , 2 ) : ’ COPY LENGTH 

650 CMT=10 : ’PLAY 

660 D$=USR1 (""): ’WRITE BODY 

670 CMT= 1 : ’CSTOP 

680 RETURN 
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•5<fc'5T£>& 0 btf <?> < ©Mil0iR-ix- b«J9lfc;*.X>f y f*fc*W*tf*> 

UliSTSS, SfrW*K9§*b-C3S< 0 110-140 frlcDEFUSRXtft 4 

*i*tt39Ofr^60f*-^y--F'r*S3&J, 
CMTtfir^T^-fey b’Ty + *READtt*K:b'r^So 

bfy + ny b n— )V(Dtz$>(Dy-'7)\'— f-y fc \tiXfo7>tz(Dtzi)$, % £ 

310 KJfcfcfflfcX l 



*13-1 ') 7 F 1 



BCIOh = 77 7*T*& -5> 0 OttbXl? *--?"/ F, 14 E.MZ7 * -7 -y F „ 

BCllH = "l"OTHigh<7)*$„ 9x-f HU-^XXijSr^'v^-^T-i-So 
BC12 h = * 1* (7)Low<7) J1 $ 0 
BC13 h = "0"(7)HighCOft $ 0 
BC14 h = "0"WLowOT*$„ 

BC15H=ff-§-<7>1t%Jitf'J4E>7>7''J (XlT-lil85^s)„ 

BC16h = T «rl* A, fc' CO 7^ -y 7^^)^ (£>A,S Ufct'LfclW’i.'t'). 

BC 1 7, 8h = -f > 7 ^ 3 > 7' □ ’y 7 (FCB) <7)**DT>7-7c7>iJt 0 

BC19, Ah = 7 >7 * 7— -> 3 >7'P 7 7 (7)2# B (7)7 — 7<7)$[ 0 
BC1B, CH = -r >7 * 7— > a > 7 *p 7 7 (7)3# i (7)7 — 7 <7>^c 0 

BC1D, Eh = x — 7 7'p -y 7<7)gtDC07 — 

BC1F, 20H = T ? -7 7'n-y7(D2#l(7)7-7i7)St„ 

BC21, 2h = x — ^7*P 'y7C03#S<7)7 — 7<7)So 
BC23, 4h = -T >7 * 7— v a >7’n y7ff)l?, 



7 k&^U IH^T^ofclFTCPU ©^^©feO&OT, mm'-CLZ-itzV? 
ab-So &£**©« TUSR2 (" ")J T, 

Tab So SuA&tfjuB (7 Fl^x) fi BCOCh F EAotv^ Ci;C4oTV^ 

-So CICtt BE6 Oh**AoTV»* 0T, ^-XTXV7°1-tUfMS> ^ 

k**T§ S>0Tab-S o R*a»»bofc4«., — fiX“ 7 B £±*T (CMT= 1 ) 7 7 -i A- 

m* 7 7 4 (Dtp teg# 3 > F n-;F3-F^U-3t^5 £ 

(DT, TPRINT #0J £ C Tte $ h CftS fc © «t©TX 7 - F 7 F V 

X, X7F7FWX, Ifi7F7XfeSiLT^5o 
&C TUSR3 (" ")J T7 ZitftgfotJl 

V>fc*i#(mT<5.ftStt BCOEh 6 © 2 XM F T*g £ t * © *: 0 ^ 7 7° '7 7° n 7* 7 A 
Tii^^fc’D C-f 77t7-'>3 77’ a 77© 18, 19 xM F @ JfotV'5, 

7r^f G-RAM © 4000 H (Wfflffi) i^Co-FJ ti& (DT, #— 

V“F**@T.S*.*©T2b*o 48 KxM F (C000„^M F) £SAS> #•£■«, 7 4 7 RAM 
© BF00 H ~FEFF„K:n-F 3*1*0 -5 K+Jfc^iiftT’ F V'X*©** k V» 3 

k.Xl © HuBASIC Tfi ^©Tab*o -© ^ k #¥6 

CfiSMT-S Fiti, ^-^CAot/v/nvyF^UffLT^tUi'i^o Lo^D+- A 
#^?7rCi&bftTLi;oTV>*©T&*o 

& O 

580^7*^07 7 4 ;P©#§&*Tab* 3. tUtMfc b<DT£>6fr bWM 

LTLt-oT, £o£k >JX F 13-1 ©BMHCfToT L£ $0 
£-f« TPATRMMJ kv^JfotlTVift^SfcK Hb©VH>A& <?#*>* i - 
C, btUi^°7f-ffl©r-7-C*-S 0 tt£b%, Z®7n77Attg^gMf§ii5 
©Tabs, o $£F'&T^ — 7 oTftffiC^^Sv^ATabSo ftATb- 

*otLS^A0iAi?)-t, 4 y7^7“^3F7ny^7Ai77tAtt7 4 7 
RAM A.y-FttUlia*^ RAM F) r-7 7* a 7 

»13£ f-7^-/ 311 



G-RAM 

7***^©lS?'&^tgtt#Mii^©/io 7 7 ^xTt^ SymoT^S^n/5A0 
&%pftT&6 0 ~MM tv^CiM^yRAMfflOA'yf-, ~I0 t V> d ©** G-RAM 
(D^yi-ThZ> o 

/D/7A©Ifr(i0o©^ty/i^!feS5o f©)>!l£^^-^i!)7#fl£. T 
ii#®© BC27 H © TWHEAD1J ^^f-S> 0 APSS /f© 8#H© 

7*7y^©##a<^Tab?) 0 8255 © t? y b -te y b / U -te y 

PL < «JgO¥© 8255 ®©fl>T£ JIT VA^£Xr^ 0 fWAITXXJ t l>-5 ibTVy-A 
jtuSE© TBREAKfl-f-J ©f-x y 7 Mt$75 7x--i V iV—77 ' ££>£„ Ztl&gfA, 
iiWi^A 7 7 *7-73 >/u fcC&So 77 b 7x7T77 577* 

^®!.7o77Ati5i^ BC33 H #±1i2© TDIJ Tffl D LT V»S £ 1: K& 

■ @o<^C, 'f 77*7-73 77vy7f$<DT-?te7'i 7 RAMiC&SOT, BC34 H ~ 
BC39 H T^yf-*fr*o'r^4o ifteioT TPATWJ (BCBB„) *>«>© 2 'U Ytf, 
LD (HL), D 
NOP 

C#£i&bSo Z.Z£.T%tz%t>, fob It HL 7^J77 77 * 7 — 7 3 77'u y 7 <D 

r-7<D7 b*7X£A tl (G-RAM ©F*3#£# < *§•£& BC 7$?X7), DE y^X^Kf 
©:K££Atl, IY 7777te-?-7<DM£(3mMfr)^<Dtf'{ 77 ^AtlTTWRITGOJ 
§ CALL t6t>htT$>6 0 

BC4A„#Jt^?>© TWB0DY1J LT&So 

GAP©##jA&T&5 0 4 7 7^-7 — 7 3 7/n yX©IiC 
r*-7^##at?L, ^3*y-K/P-f-7**tt*Jfl|ffL-CL*'5*»fe Lftfc^O'CAft 
T&£ 0 if— ift©4niAX JRt: oTi^S £— T&£ 0 ^© 

^teG-RAM^S^C^yA^fiTcoT, =&7 7'X 7 lzM&$k D jX/LT, TWRITGOJ % 
CALL LT ^6?ztfT$>Z 0 

LLhOL ? fdlK bMlbWi^-%: 5 IbMX.&frb m 3A l ^7fe^-t;iil'i©T 

BC6A„^?>© TWRITGOJ £j|T § *rV\, 3 HI TWMARKJ £PA,Tv-7£ 
fr'tv^o y-777*^'-fe'y b £ixTV:>-?>&<'> f 1 J £, D -tr 

y b SttT^SO&i'. TO J £, BC 7'7'X7©gStfifr#< <DTh2> 0 tztzbbtUt XI 7 
*-^y b©i§-£-T;£>£ 0 #!J© BC10 H #ift© 7 7 7***1 (MZ ^e— K)© 1 1 ttT 0 J, Tl J 
**igC&6 0 BCE4 H #ittS>Xr 0 £JLTfM#LTOft;bi# XrO 0 f©ttt7#-7y Fi;£ 

D CX7- b t*y b &m%, #i$(D'U b?0£*# (BC8E„©rCALL WBYTESJ), 

CX b 7 /t’7 b 

tZTNMLSitt BC96 H #±te® TWBYTESJ £gPS 0 ff*7'7X7© HL £ OOOOhCL 
Tv>£ 0 CltUiAx y 7-9-Affl©X7 7 77T&3 0 A©ITff##©rWBSlJ£n¥?>*ii}LT 
v>& 0 b707Y b©*®©H : fT#A$)So 50^“f7i^f^Tlfctli* 

A rWBSU ^nft/'tBLT 2^M b©f-x7 7^A*#V»'r»fcDTJbS 0 

312 HKiCtHSXl 



rWBSU (BCB5 h ) h k L T [ 1 J * 1 0 # fc & (BCCE„~ 

BCDIh), TWBYTEJ 7 t* y 

hi»6JBc*v»-rv»s (#^nm b ^kc&x^- h try h bxtitui, i^hrtc9 

rWBYTEj ttfxy^tAMK, BCDA H #ifeT T 1 J 

ti'So 

3. k TWBITJ (BCFB H )©|^0jK3ib^o ^ V ~ 7 7^-fe 

y hSftT^ftfcT ru £, D-tey hSftTVifttf r 0 J &^<fc>VT$>Z 0 BCFCh*^ 

BDUh^TOIHJ?*©^* LT, A, A'u$?**e?x>f h fl§ ©« * AftT ^ 5. 

bdio„©«* rjRj a, ru t roj r©B#Mi£**<i- 4 ;fc»©fc©?^fc©*© 

tAnti 5 .i®fcJ()Cfotfc<AU Utt 3 B 2 & 5 SfrLONGJ,r 0 J«S!J££rSHORTJ 

k a-5(DT$>6o oj §fcn¥t££'C$>So 

ru, roj ©*3£tt<l>L#Jlfttffl-*>SJ:$C, fckiltfXlTriJ £•<«£■ 

tt, I/O © lA02„#±ti2©H 0 t‘y b £-fe y h (High) LT 250 ©M^Ft., ^©ft-k© t? 

yb^'J-feyh (Low) Lt 250//sff o©-r&& (^n^y Attt 8255 © tTy h -fe y Y/ 
y-fey MvyFi®oTl^) 0 

H£W?k, Xl©*&»y-feyh (Low) Lt^2, 0 ifi 

«, h*y h *##*&«> 5 Low £# 

Z(D-y-7'A'~?>CD'pT£6£Z 250 k, Low ©JHM** 

ft < * 9 -urr L £ 3 ipt>iZ<D1 £ „ fcv>fc, XI Ttt 'J - Fxy-Mi/ 

AS/gltL £ 5 L*U MZ©^(±i©^KraLT(i©At/y LT^S £ L 

<, Low**ft-f ^Tfc|tS)jlifi$rv> t 5 T*So 
BD25 h ~BD2D h (i TBREAK fg-^-J © -k >" X T£> 5 0 £©#©H#fIflk Low ©ft §C Aft 
X *&ftttfttf4&frv»©1\ (LONGL) k (SHORTL) ©ffitt*©#/.h3 < * o TV> 
6 a £>~&A/k< £„ 

LLtT'r-Y’y'f YiV-l-ytDWm^fohtf, ^MZ7t-v.> Mi20-fe-7* 
©(±-f*©C-?-a^oTV^Vi 0 ift%^S§ kV^CT^-So 3-ftttk *>*><, 
TStAT*m* 5 # < «fc 5 K, k©7 > n;/y J M;i&/l£ Offi0< (fFo/r^A^'WoT 

«LAYPi-©#ft(i, 9 L it Y y/^yc 

iOWSfciB^fcfe kte, r-7°© y - F/y-f UF'-f-v 
kvu feOfi, ftSOI DS-3fcJ:5 C-’f’S b<Dtzfrh ki/U d kT£>3 

■5o pRlIb^KD Cffi < fF&J 4if©S**sJbfttfj5fcS!(*©^6-**o 
k, ^ f- * £ » L * ** fc y - K ;F- A > © fftBJ C A So BD30„^ & T h S„ 
rRHEADlJ, rRBODYlJ ©^JiliS^^Cy UF— fVtRUT^So 
fctftfcij-rs©'?**#, l#@©v-?aii*iP?.iILtVJ 4 . SiB, 

r 2 , 3#@©v- i 7f l f^T5E^i*^J k rMZ-Cfir-^oy-^-gP^O-yr^-C, 1 

T&3 0 ffliyMttf, ift©4 , (iA< iRt ^ 

X I^®?ib5„ 

kV^k>HT, 2#, 3#B©v-*fcg*K:LTnffl*»^Tftl£©7 , “*tf»*»ft 

H13^ f-i’l/a-/ 



TV^HffCieoTU<O^BD62H~BD89 H -C*So Z ZtTZtzK b, TRBYTESJ 
tftiJLT, Jg^Lft'M Y&ZWiAsTLt 5 <, 
i^fUfOK, $ b%VtU$^y-Th6o 

TRBYTESJ, TRBS1J, TRBYTEJ fcv>5 

TRBITJ -?&£<, 

ft, BE18h~BE1F h ©^-7“-C*5o Z.Z.\Z\T — 7fr High 

0 su-y-ti J:J = TLow C&ofc^tfjTVHickJ ( BREAK f§-§-©f-x 7 

?\tmi£)o ?0^f“/0fltliLow^oTV^o^ 

CfcS BE20 H ~BE29 H © >v~y\t rr-:/*^S^/ifi^Lowr&-SKD A'-7°-& 
J; J = THigh C&ofc baiTvn^ J;J Tib-So £ it b — 00^-7°©^ 7 T V> S> 3 t 
fi, 

&t>tfTb>-So I’&tob, r — Low-* High CSfoteH^Cfi BE2A H #ifeC 
*TV»S©TJb4 c *£T, (Xl©*£tt) 185 Tiffed— gr-7°©{f-t£^ 

*&!>, ru *©*» roj *©***#0 *©■?**. rfitf-f-T’y-F-cibs. 

BE37„#Jft*>b, 

LD A, (AFTERW) 

CALL C, WAITX 

* if i: v> $ fc ©**£*<> :nti, r 1 J £g&A,;£&t±, (Xl©l^e>)ft© 1 f-y bSt 

500-185=315 fts t>B$Ma*2b9, t i. X^TL £ 5 Lft* 

v>©TjSBfc#©ob dta^©^* s , Sol Dto-rB^^aci^-r^i-? 
£>£o 6 'nM 7 'f ytHUi-C, MZ 7 * — 7y b J&ictf t 

# fe— Sfc^tiLTV^v^o 

* © i - * b tf T y n 7* 7 A ©I5J0J fi -Igjg-f 2><D'Ch6AS, - £ T— flgifc# t LTV 

rffSP^Otf-^&J ^Ufc’< 0 

TSfc-*1MW©##**MSfc, ^WM^JTfccrT (xr-MSc) = xxj fcv»$« 
^^Vi-C^-Sti-fTabSo £*ia*. r*©flr^£fl?Tl‘S©Cft?ay?&i^Hfc'' i '5 
itT&So fetJtJf, TLD A, nJ&b(i*T= 7 -?£>&*>£, 7 fvyffrfr&WCIb 
•So ^V^-Cfeo T, XI ©7 n 7 7 (£ 4MHz= 4000000Hz tzt^h, 1 
1 =4000000 (Hz) =0.00000025 (#) 

L^So ■*-**>% 1 7D77=250ns=0.25//sr$,-S o Z<DZtfr?>, TLD A, nj©^ 
frWFMtt 0.25(^s) X 7 = 1.75(//s) tttjltlSo b$fc&JEL 

£&!£«: 4 TSlJtJ, *tUZ |>sj frtttttltfit'o 
3fe©fcftC#Vi-CiJ < t, 
lms ( 3. y #) =0.001# 

l^s (T^n#) =0.000001 # 

Ins (y-7#) =0.000000001# 

T*3bSo 

314 KSstcdJ&Xl 



%(D&-t£fc>V'eT-'7T&-itZo Z<D£&Ttem%% 

BASIC L^USStUiTr-T 0 ^ 

7n-y tf-rV X^gIi7“n^7Aj <* £ fi?> 5 <, Sfc, G-RAMEn-KS 

7 RAM 

& 3 0 

llcfdtfi< *5, ;©/D^7AB7af^ h©M'ofc^-A7n^7Aii'li 

RAiki', Rfcfri^ofcfcK**^. S^tMWjtoTfc r *y-AOf— ^JR*K«)*v» 

^©ft© (£gftW£"efc 

£>o 
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turbo Z 







■ mi4» 

nZ0)«8Sg&8l'U'<OTfcS • • • • 



£©$T k «turboZ©$flgCOV>-C J ? > S0 - T k &So k, 

turbo (turbo II b^ts) k turboZ ©IS(2, 

1) 7-^n^ RGB Kfe^tSt 4096 

2 ) (Dmmi o 

3 ) m 2 7m rom zmmm m 

4) 2HD F'7^f 7'mm 

5) 7' 7 7 4 v 7 2 Biffin 7°7-f ^ V T -2 f\f # 

6) T*7b;<uy 

7) fm WM£4S*p-r#g« 

8) ^7 7£«gfi 

9) 7 7o — ;l -f y/T^FSi 

10) -fy^l/-XXw!-^y*"-X 

11) 7D-7^— (B®-nJ^) njfg 
&F'i:&oTt)>So 

&J3, turbo fc turboZ ©Wiuiti turbo III t V s 5 L fcUH'f^©'*’ 7 7 i> £> -5> 

2)5, ^nKOV»Tttg*W5Ei:tTiS<« 

$ T, Ji(_h© d h £• o £> o 6 § C, turboZ C ii o T turbo C )ct t -5 © 

tt, tztztztzmzt htmmmytiVKfD-e&ZottV £5 kJS*.ff 2HD F y^-fizh^) 
2)5, FMW***^**, JS2*!|IROM*f%53&*^fV» , rtt50T*So tC?, \7'y7 
4V?\, raffia y b n-yi/J © 3 j&fci&oT®t) Cl t Clfc. 

tztzL, D, t^bT^5yyt7 Cffiiz; U2: bOTti^r 

£ t < o S2rdtT.m©7 > n7'7A«CZ-8FB02 £j£-5 £ fc„ 

'Tn'?* •v'JT&S 

CZ-8FB03 4096 fe&5{££ 3 02! 2)5, ^f*2>5£0 CZ-8FB02 2f 

^^t'j7M4-1?|.l.o ZtlH 4096&(D&E#T2b& o 
/77t y^SfiBtt 320X200 •?***»€>, 64000 F 7 h *fctt2f 0 ^*t£ 4096© 

feftT£b¥K:EI &nt, 0 15.625 tv>5 £ fcK* -So J: z> Z $>tl Z tl% JL 

T, 1 S 7: D i 3 F 7 F x f 4 F ■> F O 12 F y F J , £ 6> Cfttt 64 £ t 

Clfco * ©&L3£ L T £ © 2>5 250-400 & 3 „ 27 y-y~ F©36tF^(i, B®^_L 

2»6>£C2M2THiG 0, 1, 2, 3, 4, , 63 t % 0 , — ST** -3 T:£*> 6> 64, 

65, 66 fct>-5, r<Sfct)|ff©^ljK*o-C^S. T% 3o-e £ < if— 

■J7S tSftlcfliXl 



LZ Z Otf y ? X (LINE—BF) ©jgH* 5 4096 (Dfrfrfr £>*V>A*s 

(i-€-iiTS!Uu10itf £ t fe 

V h 14-1 4096fea*+Zffl/<uy |>;u — ?> 



100 CLEAR &HEF00 



110 


MEM$ ( &HEF00 , 16 ) =HEXCHR$ ( 


"DD 


E5 


FE 


03 


3E 


0D 


C0 


78 


FE 


04 


3E 


05 


D8 


El 


01 


C5 " ) 


120 


MEM$ ( &.HEF10 , 1 6 ) =HEXCHR$ ( 


"IF 


C5 


3E 


80 


ED 


79 


EB 


7E 


23 


ED 


67 


0F 


0F 


0F 


0F 


4F" ) 


130 


MEM$ ( &HEF20 ,16) =HEXCHR$ ( 


" 7E 


23 


E6 


F0 


57 


ED 


67 


06 


10 


ED 


79 


04 


7E 


23 


B2 


ED" ) 


140 


MEM$ ( &HEF30 , 16 ) =HEXCHR$ ( "79 


04 


7E 


E6 


0F 


B2 


ED 


79 


Cl 


AF 


ED 


79 


C9 


01 


C5 


IF") 


150 


MEM$ ( &HEF40 ,16) =HEXCHR$ ( 


"C5 


3E 


80 


ED 


79 


CD 


4D 


EF 


Cl 


AF 


ED 


79 


C9 


11 


10 


10" ) 


160 


MEM$ ( &HEF50 , 16 ) =HEXCHR$ ( 


"AF 


67 


6F 


4F 


AF 


42 


ED 


79 


04 


ED 


61 


04 


ED 


69 


19 


C6" ) 


170 


MEM$ ( &HEF60 , 16 ) =HEXCHR$ ( 


"11 


30 


F2 


0C 


C8 


AC 


20 


EC 


67 


2C 


18 


E9 


00 


00 


00 


00" ) 



180 DEFUSR0=&HEF00 
190 * 

200 INIT :KLIST 0 

210 OPTION SCREEN 0: WIDTH 40,25,0,1 
220 OUT &H 1 FB0 , &H80 
230 GOSUB"CLS 12" 

240 ’CALL &HEF3D ’XPINIT 
250 FOR L=0 TO 5 
260 D = 4 * ( 2 ~ L ) 

270 IF L< 4 THEN C=1 ELSE C = 2 

280 S = 3- ( L MOD 4 ): SCREEN S,S 

290 FOR J=0 TO 255 STEP D*2 

300 LINE( J+D, 0)-( J+2*D-1 , 191 ) ,XOR,C,BF 

310 NEXT 

320 NEXT 

330 FOR L=6 TO 1 1 
340 D = 3*(2 / '(L-6) ) 

350 IF L< 8 THEN C = 2 ELSE C = 4 

360 S=3- ( L MOD 4 ): SCREEN S,S 

370 FOR J=0 TO 191 STEP D*2 

380 LINE (0, J+D)-( 255, J+2*D-1 ) , XOR , C , BF 

390 NEXT 

400 NEXT 

410 FOR 1=0 TO 4095 
420 FOR Cl =0 TO 4095 
430 C2=C1+I 

440 ’ GOSUB" XPALET" 

450 A$=USR0 ( MKI$ ( Cl ) +MKI$ ( C2 ) ) 

460 NEXT 
470 NEXT 
480 END 
490 ’ 

500 LABEL"CLS 12" 

510 SCREEN, 0:CLS4 
520 SCREEN, 1 :CLS4 
530 SCREEN, 2 :CLS4 
540 SCREEN, 3 :CLS4 
550 INIT 
560 RETURN 
570 ’ 

580 LABEL" XPALET" 

590 OUT &H1FC5 , &H80 

600 GR= INT ( ( Cl AND &HFFF)/&H10) 

610 B= (Cl AND &HF ) * 16 
620 B0= INT ( C2 AND &HF ) 

630 R0=INT((C2 AND &HF0)/&H10) 

640 G0= INT ( ( C2 AND &HF00 ) /&H1 00 ) 

650 OUT &H 1 000+GR , B+B0 
660 OUT &H 1 1 00+GR , B+R0 
670 OUT &.H 1 2 00+GR , B+G0 
680 OUT &H1FC5 , &H0 
690 RETURN 



T, 410^470 y 

Jgfin<Dfr-7 (O0S) T TPALET A, Aj=»fb, &© 

rPALET A, A+1J, 3 6K: TPALET A, A+2J o T & to tf/io Ztl\t 

MWls-yfo Z>(DT±&b 6 fc it | BREAK | * Z 0 450 fx O USRO 

H14$ turboZ 319 



oT 440fr©GOSUB Ai/y b^S/F-7 >** 580 ff*»6 © BASIC 

Kft-jT, hTfciB< &£©-?— H(— USROTHfrbT 

V^®Mlg-9-7Vw-^y©7-fe>7VHJ X Hi'JX h 14-2 t** So T, < MS t 

< -oov>-cv*5fc>W'f£o ^“5. YfflURik^— 

St/i 0 y X h 14-1 © 24OffC;:o*0i:2b*J:'5 C, IXALL &HEF3DJ T 4096 fi©^° 
l/? EF3D„~EF6B H «ffi^cy n^-^^C44®T 

tSdo^^^C-©^“f-7©X-4 >&&?&& EF4D„ 
~EF6B H (ft- 31 ;U Y) tt^OlCa^ M9fHE*o"CV»S. D^LTf^-oft 
*»&cnJ:!)f)/jNS<f^ac:i:tt*‘«t.5Jltv»T*5do *fc..k9fc, lotiit2.fi 

y Zfrttb&t*'} 

it:<Dr*$)&o tttt w-mt. 



U X 1 14-2 Zffl'<u--y H&JfcA'— MWHHfcfl'—f’:' 









. Z80 












.PHASE 


0EF00H 




1000 




BLUE 


EQU 


1000H 




1100 




RED 


EQU 


1100H 




1200 




GRN 


EQU 


1200H 




EF00 


DD E5 


XPALET : 


PUSH 


IX 




EF02 


FE 03 




CP 


3 




EF04 


3E 0D 




LD 


A, 13 


;Type mismatch 


EF06 


C0 




RET 


NZ 




EF07 


78 


* 


LD 


A , B 




EF08 


FE 04 




CP 


4 




EF0A 


3E 05 




LD 


A, 5 


’.Illegal f call 


EF0C 


D8 




RET 


C 




EF0D 


El 


9 


POP 


HL 


; DROP 


EF0E 


01 1FC5 




LD 


BC, 1FC5H 




EF1 1 


C5 




PUSH 


BC 




EF12 


3E 80 




LD 


A , 80H 




EF14 


ED 79 




OUT 


(C) , A 


-.WRITE MODE 


EF16 


EB 


9 


EX 


DE , HL 




EF17 


7E 




LD 


A, (HL) 




EF1 8 


23 




INC 


HL 








; ( hl ) =? 


. G , A=R . B 






EF19 


ED 67 




RRD 




; A=R . G , ( HL ) =B . ? 


EF1B 


0F 




RRCA 






EF1C 


0F 




RRCA 






EF1D 


0F 




RRCA 






EF1E 


0F 




RRCA 




*,A=G.R 


EF1F 


4F 




LD 


C , A 


; C=G . G ! ! 


EF20 


7E 




LD 


A, (HL) 




EF2 1 


23 




INC 


HL 




EF22 


E6 F0 




AND 


0F0H 




EF24 


57 




LD 


D , A 


; D=B . 0 ! ! 






; A = B . 0 , 


(HL) =r.b 






EF25 


ED 67 




RRD 




; A=B . b , ( HL ) =0 . r 


EF27 


06 10 




LD 


B , HIGH ( BLUE ) ;=10H 


EF29 


ED 7 9 




OUT 


(C) ,A 




EF2B 


04 




INC 


B 


; B= 1 1H 


EF2C 


7E 




LD 


A, (HL) 




EF2D 


23 




INC 


HL 




EF2E 


B2 




OR 


D 


; A=B . r 


EF2F 


ED 79 




OUT 


(C) , A 




EF3 1 


04 




INC 


B 




EF32 


7E 




LD 


A, (HL) 


;a=? . g 


EF33 


E6 0F 




AND 


0FH 




EF35 


B2 




OR 


D 


; A=B . g 


EF36 


ED 79 




OUT 


(C) ,A 




EF38 


Cl 




POP 


BC 




EF39 


AF 




XOR 


A 





j2o ta^icai2.xi 



EF3A 


ED 79 




OUT 


(C) ,A 


EF3C 


C9 




RET 




EF3D 


01 1FC5 


XPINIT : 


LD 


BC, 1FC5H 


EF40 


C5 




PUSH 


BC 


EF4 1 


3E 80 




LD 


A, 80H 


EF43 


ED 79 




OUT 


(C) , A 


EF45 


CD EF4D 




CALL 


XPMAIN 


EF48 


Cl 




POP 


BC 


EF49 


AF 




XOR 


A 


EF4A 


ED 79 




OUT 


(C) ,A 


EF4C 


C9 




RET 




EF4D 


11 1010 


XPMAIN : 


LD 


DE. 1010H 


EF50 


AF 




XOR 


A 


EF5 1 


67 




LD 


H , A 


EF52 


6F 




LD 


L , A 


EF53 


4F 




LD 


C , A 


EF54 


AF 


LI : 


XOR 


A 


EF55 


42 


L2: 


LD 


B.D ; 


EF56 


ED 79 




OUT 


(C) , A 


EF58 


04 




INC 


B 


EF59 


ED 61 




OUT 


(C) ,H 


EF5B 


04 




INC 


B 


EF5C 


ED 69 




OUT 


(C) ,L 


EF5E 


19 


* 


ADD 


HL.DE 


EF5F 


C6 11 




ADD 


A, 1 1H 


EF61 


30 F2 




JR 


NC.L2 


EF63 


0C 


* 


INC 


C 


EF64 


C8 




RET 


Z 


EF65 


AC 


* 


XOR 


H 


EF66 


20 EC 




JR 


NZ.Ll 


EF68 


67 




LD 


H , A 


EF69 


2C 




INC 


L 


EF6A 


18 E9 




JR 


L2 








END 





’.ACCESS OFF 



;D=10H 



TttSMBCASo F 14-l© 580~690fr*fc^^o ZiU/VUsy FI££©* 

Ssf’Cife -So 

i 3. "Cti fPALET Cl, C2] 5 Z b £L~d' : >6fc>tif'C$>?>o £■ Z t H 

I/O© 1FC5 H © tfy F 7, tfy F 3T*^5„ tur 

boZ — F tT /- n X" RGB ©'n°U / y F fg^CTfeuo T li, \ h* y F 7 = 1 , t*>> F 3 = 
0 Jfc LT:fc^&U;ft4f&£&V:>®-C$>&o t’7 F 7 = 1 tiTX-feX ON, tfy F 3 = 0 fi 
F ( 1 & F) fcVi-5 d fCafeSo f Lt, 680fTC 

bhi> i. -5 C, rt?yF7 = 0jfc UT7X-teX£ OFF ClTfe’ < ^# 

T’^)-5o LIST, INIT^^&UOTAwy F 7tn/ RGB C fi 

**, Jo^L&'^'y FK$£ LTLS -5 >1 bti^h%> 0 

*V>'4k.\t, 3 0© OUT £©£;&*, i o tWSQB<D$>?>B^z 

&oTA§ 0 **, — 3 t£5o 0 T*L>^, 

PALET &H OaD, &Ha/3y 

fi, 

OUT &H10OA, &HD y 
OUT &HHOA, &Hn/? 

OUT &H12 0A, &HD a 

Wi 14 J§E turboZ 321 



C*4©*f 0 tzti LOAD, afiyt T Iff?© 16 £ftj T& S 0 

&tS^££>(f 3 t, 

PALET &HABC, &HDEF 

It, 

OUT &H10AB, &HCF 
OUT &H11AB, &HCE 
OUT &H12AB, &HCD 

tKZ><Dtz 0 rcj *5 TOUT (D&m4>%<DT$> 

S D t, ZtltzVW 6 -5o htttv X h U-2T&6&, StUi 

TRRDJ r A lx 7'7 7 ©Tfi 4 U>y h J, [ (HL) © 

_tfi 4 t> b J, r (HL) ©T{44 U>y 1J ©HOO^TlI^lHlf t PL 

< §itvTc/itfc^o T, ^^#U^UtUiTUj-^v^©*A 

frTSL (HL) ioT, fc A «' 9 X 1 14-1 © 450 fr 

X$ = MKI$ (C1)+MKI$ (C2) :A$=USR0 (X$) 
ftL't-fSt, XJCWt^IboTLiaot^S, hV^bttT, £©j±U£&iKf 
•5 J; — C 0 

»UJX h 14-3 trtbZ (100 — 200 t: 480 fiVMtt ') A h 14-1 t |W|L:T ; -£>S)o Stl« 
64fiX2H®*-KTfcSo 280—370 frT 64 fre- b £K:£L, 390—470 
tTT"— 0©7*77^ 7 7H®+4r + 777©7 > '7'f T 9 T4 1 (flyfeJUSfu) £'\°3 'n°3 kffl 
£>#I*.T 7 >S ( 7 UTCf + X l^lxy h fcyy/ACfit^ 5) 0 fcH 

7TS 0 fWTyt, :'Otg©Ai/»yb0gt?*5iS, TR, G, 

2 t’y LVi-5 ;tCiotV'5„ T&;bt>, 



W-* 0001 


0000 


* * X X 


* * x x : 


* * X X 


* * * * 


ft- 0001 


0001 


* * X X 


* * x x : 


* * X X 


* * * * 


&- oooi 


0010 


* * X X 


* * x x : 


* * X X 


* * * * 


10„,11 


H » 1 2 H 


G 


R 


B 


G\ R\ B' 



Cfc’^t, r*JAWj:t , y It, TxJ asi^fl&tf'y b Z tT&Zo rxj©g|b9- 

T-RH-tf^Wy b**R€SitfcO^So t, TzkZ. 

l£ TOUT &H10FF, &HF?J k TOUT &H10CC, &HC ? J ttRUrtf* £>*©*! (M$h 

u >y o t Lxm*.tia&fri)o ioT, *js*»or?j 

r&ft? yflxy h*5'xy^f^JtVi-5 i 

So £, S S Lfi'S < £>*iS 4 'U:v>UoT<AS 0 **— 

9 "5 o 

0 X 1 14-3 64 &X 2 *t'szf)\, 

100 CLEAR &.HEF00 

110 MEM$ ( &HEF00 , 16) =HEXCHR$ ( "DD E5 FE 03 3E 0D C0 78 FE 04 3E 05 D8 El 01 C5") 

120 MEM$ ( &HEF10 , 16 ) =HEXCHR$ ( " IF C5 3E 80 ED 79 EB 7E 23 ED 67 0F 0F 0F 0F 4F" ) 



322 ttJfcfcffl* XI 



130 


MEM$ ( &HEF20 , 16 ) =HEXCHR$ ( ” 7E 


23 


E6 


F0 


57 


ED 


67 


06 


10 


ED 


79 


04 


7E 


23 


B2 


ED” ) 


140 


MEM$ ( &HEF30 ,16) =HEXCHR$ ( " 79 


04 


7E 


E6 


0F 


B2 


ED 


79 


Cl 


AF 


ED 


79 


C9 


01 


C5 


IF") 


150 


MEM$ ( &HEF40 , 16 ) =HEXCHR$ ( "C5 


3E 


80 


ED 


79 


CD 


4D 


EF 


Cl 


AF 


ED 


79 


C9 


11 


10 


10" ) 


160 


MEM$ ( &HEF50 , 16 ) =HEXCHR$ ( "AF 


67 


6F 


4F 


AF 


42 


ED 


79 


04 


ED 


61 


04 


ED 


69 


19 


C6 " ) 


170 


MEM$ ( &HEF60 , 16 ) =HEXCHR$ ("11 


30 


F2 


0C 


C8 


AC 


20 


EC 


67 


2C 


18 


E9 


00 


00 


00 


00" ) 



180 DEFUSR0=&HEF00 
190 * 

200 INIT : KLIST 0 

210 OPTION SCREEN 0:WIDTH 40,25,0,1 
220 OUT &H1FB0.&H80 
230 GOSUB"CLS12" 

240 CALL &HEF3D ’XPINIT 
250 SCREEN, 0: SYMBOL ( 0 , 0 ) , "0" , 8 , 4 , 1 , 0 
260 SCREEN, 2: SYMBOL ( 30 , 30 ) , "2" , 8 , 4 , 2 , 0 
270 * 

280 OUT &H1FB0 , &H90 
290 FOR G=0 TO 15 STEP 4 
300 FOR R=0 TO 15 STEP 4 
310 FOR B=0 TO 15 STEP 4 

320 C1=G*&H100+R*&H10+B 

330 C2=C1 

340 A$=USR0 ( MKI $ ( C 1 ) +MKI $ ( C2 ) ) 

350 NEXT 

360 NEXT 
370 NEXT 
380 1 

390 SCREEN 0 , 0 : LOCATE 0,5: PRINT STRINGS ( 1 2 , ”©" ) 
400 FOR J=0 TO 8 STEP 8 
410 FOR 1=0 TO 2 

420 D=16 + J + I : LOCATE 20,15:PRINT HEX$(D) 

430 OUT &H1FC0,D: PAUSE 15 

440 NEXT 
450 NEXT 

460 IF INKEY $ = " " THEN 400 
470 END 
480 * 

490 LABEL"CLS 12" 

500 SCREEN, 0:CLS4 
510 SCREEN, 1 :CLS4 
520 SCREEN, 2:CLS4 
530 SCREEN, 3 :CLS4 
540 INIT 
550 RETURN 



turboZ b £ & gt — X 

— #^L^d&r640X400 T-4096&4 , ^‘'> 

& >j z v i4-4 c^-r„ 

') X h 14-4 640X400 V 4096&+ 8 fe^E- K 

100 CLEAR &HEF00 



110 


MEM$ ( &HEF00 , 1 6 ) =HEXCHR$ ( 


"DD 


E5 


FE 


03 


3E 


0D 


C0 


78 


FE 


04 


3E 


05 


D8 


El 


01 


C5" ) 


120 


MEM$ ( &HEF10 , 16 ) =HEXCHR$ ( 


"IF 


C5 


3E 


80 


ED 


79 


EB 


7E 


23 


ED 


67 


0F 


0F 


0F 


0F 


4F" ) 


130 


MEM$ ( &HEF20 ,16) =HEXCHR$ ( 


"7E 


23 


E6 


F0 


57 


ED 


67 


06 


10 


ED 


79 


04 


7E 


23 


B2 


ED" ) 


140 


MEM$ ( &HEF30 , 16)=HEXCHR$( 


"79 


04 


7E 


E6 


0F 


B2 


ED 


79 


Cl 


AF 


ED 


79 


C9 


01 


C5 


IF") 


150 


MEM$ ( &.HEF40 , 16)=HEXCHR$( 


"C5 


3E 


80 


ED 


79 


CD 


4D 


EF 


Cl 


AF 


ED 


79 


C9 


11 


10 


10" ) 


160 


MEM$ ( &HEF50 , 16)=HEXCHR$( 


"AF 


67 


6F 


4F 


AF 


42 


ED 


79 


04 


ED 


61 


04 


ED 


69 


19 


C6 " ) 


170 


MEM$ ( &HEF60 ,16) =HEXCHR$ ( 


"11 


30 


F2 


0C 


C8 


AC 


20 


EC 


67 


2C 


18 


E9 


00 


00 


00 


00" ) 



180 DEFUSR0=&HEF00 
190 1 

200 INIT : KLIST 0 
210 OUT &H1FB0 , &H80 

220 OPTION SCREEN 0: WIDTH 80,25,1,2 
230 CLS4 
240 • 

250 FOR 1=0 TO 7 

260 C1=((I ¥ 4) AND 1)*&H800+((I ¥ 2) AND 1 ) *&H80 +(I AND 1 ) *&H8 

270 C2= ( (I ¥ 4) AND 1)*&HF00+((I ¥ 2) AND 1)*&HF0 +(I AND 1 ) *&HF 

280 A$=USR0 ( MKI $ ( Cl ) +MKI $ ( C2 ) ) 

290 NEXT 
300 * 

310 FOR 1=0 TO 7 

320 LINE ( 1*30, 1*20 )-( 100+1*30, 100+1*20) , PSET , I , BF 
330 NEXT 



mum turboZ 323 



340 ’ 

350 FOR 1=0 TO 7 

360 C1=((I ¥ 4) AND 1)*&H800+((I ¥ 2) AND 1)*&H80 +(I AND 1 ) *&H8 

370 C2=RND( 1 ) *4096 

380 A$=USR0 ( MKI $ ( Cl ) +MKI $ ( C2 ) ) 

390 NEXT 

400 GOTO 350 

T, 

1) (15kHz) 

Sot-o0feC5:5 

2) (24kHz) <Dk%\t, #6^- KCtS 0, ^>7 l&fli 

Htfe* jtfc * < * s ©P5 ©®ftJiK&« *> s **) 

3) feicii, 320X200 © 4096 KJJU14J, 640X400 ©t £**8feft£'lt'Cl£J±1" 

' <X 1 1015 64 -feT"& S 

4) '*U-y h©^£fi#lCRGB©TI£t'-y h *>fc«at*o-CV' < 

Zh'tH&l'Cb < **, Z Tit IN t 0 , ^© v^ATco^u v h L i 

"rtlKfco-C^S. Xl/turbo -z 1 ©IS®#'' 

tbotliofc 0 Ltv^i(7)tS)l>. >) -z h rfF&Sfctt'Ci 

(&ibSACZ-8FB03©PSAVE&£Tfiii^U'**), b 0 *>x.T -5 . JMttti 

1) 1FC5 H ©H 7 tTy F fcH 4 t*y F£ 1 CfSo Hifc 

F fc£S 

2) OUT &H10GR, B ? £Hfr1-So T? JttBTb <fcV\> b©t§, z-?i/ >z h «S!& 

J±SL^- F&©T, ifbv^jlcDia^tt^tl^^C: tCglo B' = INP (&H 

10GR) AND &H0F ttZ 

3) r&H10J £ r&HllJ K*8ifc*.TR'*#* 

4) T&HIOJ * T&H12J C«3ift*.TG'*#S 

5) J:HTj»ft&HG'R'B'i*/<P9 F©13:5£{i 
t v* 5 <1 hCWo 

tZZT, r + X kzN°i^'z 64fe (PglS) SOT&S**, §tt 

< fce# 7-0 =m«*©£ h *. &©-?<£> £<, 1/0 7 F^Xb^jlS t lFB8 H #*fe 

**^Vi©TJb5*J, T^&Tt&bn&Thh a b©^tb£ + 

fe£ft&©feC^A& b b\tT%t£^ i-TS)5o 
T, f + X hApy HiPCGEfc^^fc-jT < SOTS* 

So ioT, turboZ-C«, PCGTffii{.Sftft**^«lil»S#vCV»S©T*So 

^^at>©1-r<fa^*©T7 , n^7A^fU 
«-&Tfc’<o £ -f U A F 14-5 (4*tfiE§'rS7°n^7A 



J24 UM ic til 4 XI 



T$>Z 0 llOfrOFftT-r-i i-XCDlUZAtli-Z t&y&frZ-PibStDT&Zo %ts.fr\c, 
CRT3 fcV»-50ttX-A— <f >#-XZt6$r$T&Z oturboZ TiMMfc !?&*£•* Site 
X— A— -i Vtf—X HST^ < 'Oi^W'&HOT'io 



•; * h 14-5 bar ‘i ii*+e*ffijE 



100 WIDTH40 ,25,0,1: OUT&H1FB0 , &H88 : CRT 3 
110 INPUT A 

120 IF A> = 0 THEN OUT &H1FC1 , A : GOTO 110 
130 OUT &H1FB0 , &H80 : CRT 1 
140 END 



&CU* V 14-6 Th6o Ztutmf'! 9jHm-C3bZo A*« 8 MgLTftts: 5 H t t, 
X, Y^Ih]©*^ T56J £A#LT 

SHIFT | +[71 -enytfa-^BffiK-rs t, 
9C*LV»ifi®i:*So A*©k*e8 3l*rctt*< r ..J ^A*t5^D7^-of 
Cfttt3 9!:Tievifem4v», ftIK/R— BREAK -f 

Suho 



9 x h 14-6 n^pvt- V>X)U 



100 


WIDTH40 , 25 ,0,1 :OUT&H1FB0 


, &H88 : CRT 


3 


110 


OUT &H 1 FC2 , 0 






120 


OUT &H1FC3 , 0 






130 


OUT &H1FC1 ,40 






140 


INPUT A$ : IF A$ = " .." THEN 


180 




150 


A=VAL( "&0"+A$ ) 






160 


OUT &H1FC2 , A : GOTO 140 






170 


t 






180 


OUT &H1FC2 , 0 






190 


OUT&H1FB0 , &H80 : CRT 3 






200 


FOR X=&H80 TO &HC0 STEP &H40 




210 


FOR 1=0 TO 7 






220 


C=(I AND 4 ) *8+ ( I AND 


2 ) *4+ ( I 


AND 1 ) * 2 


230 


PRINTBIN$ ( X OR C) 






240 


BEEP: OUT &H1FC3,X OR 


C: PAUSE 


10 


250 


NEXT 






260 


NEXT 






270 


GOTO 200 







fLTWJXl> 14-7 ©XX n-;W-C£>£ 0 turboZ Cfi X X n — ;HN/OUT t 

; e^©-9-yx°;wt 4 S>-S> 0 isW]H>(DAtHt 8, 9, 10, 11, 12 & if 
T*-5o ^©5 *> T12J tt, CRT ft#**? htiitC&S. i*L»±S0CX X a-;l/ 1 

x-A-^f yifs-X^Thh a 

**, hCi'< CRTfcB^$7&7 h LtUA 

■v-TCttlbXiL^T^)?) fc i ?. ^©*5X ^ n -;l/ h ^ tM X®Sfv f 

ffiSv^o 

JU±Tab a *n $&*"<' &Th % z. % C®1 0 z is L t h & t £ 3 3 „ — ^ c tt turboZ ©ffi3i 

UtEtt, *X^ALSISrffiofcfc©T*Sfc«)K:, ®6*3&*>0, {R*R 3 & *> © 

^ 14 ^ turboZ 325 



■J *1*14-7 X<7U-)\> -*>7)1' 



100 WIDTH 40 ,25,0, 1 : CRT 3 
110 SCROLL 2 

120 INPUT N : IF N<0 THEN 160 
130 OUT &H1FC4 , N 
140 GOTO 120 
150 * 

160 SCROLL 0 
170 OUT &H1FC4.0 



(DlXfoVfcLtzZ(DWi(D\?T**, 

&?(Dtztf, }i*)Xhh*)fr XftM^zh^vnLtz(Dfc['[ >?u 

KPoTV^^«X^n-;WN/OUT(D®tgt t t) 5 Q X^hZ.'b 

X turboZ X'h~DtZo 



326 IXifc^aj&Xl 



fit»A I yyjuzi' 



•;x fa-1 ur>y>) x Ffx7;fflw7'n/7itj>ii„ 

'J X F A-2i^iWWi^WT-t U x F, U x h 

yxFA-1 X>y; x h f-x >y ?-y-;u 

100 T=&HC000 : CLEAR T 



110 


MEMS ( T+ 0, 16)=HEXCHR$( "05 


C8 


EB 


E5 56 


23 5E 


23 


05 


28 


1C 


EB 


0E 


80 


1A 


Al" 


120 


MEMS ( T+ 1 6 , 1 6 ) =HEXCHR$ ( "28 


01 


37 


ED 6A 


30 08 


3E 


10 


AC 


67 


3E 


21 


AD 


6F 


CB" 


130 


MEMS (T+ 32 , 12 )=HEXCHR$ ( "09 


30 


EB 


13 10 


E8 EB 


El 


73 


23 


72 


C9 ' 


’ ) 








140 


DEFUSR0=T 




























150 


DEFINT B-Z : DIM X(7) 




























160 


INPUT AS 




























170 


B=VAL("&H"+MID$(A$,2,4) ) : 


IF 


B > = 0 


THEN 


160 




















180 


C=VAL ( "&H" +MIDS ( AS ,7,4)): 


IF i 


0=0 


THEN 


160 





















190 FOR D=B TO C STEP 128 

200 IF D+127CC THEN E=127 ELSE E=C-D 

210 Z$ = LEFTS ( MEM$ ( D , E+ 1 ) + STRINGS ( 127 ,0) , 128) 

220 F=0 : FOR J=0 TO 7 : X ( J ) =0 : NEXT 
230 FOR 1=0 TO 15 

240 IF D+F< =C THEN E$ = HEX$ ( D + F ) +" " : GOSUB 360 ELSE I = 99:GOTO 290 
250 Y=0 : FOR J=0 TO 7 

260 G=ASC (MID$(Z$,F+1 , 1 ) ) :Y=Y+G:X(J)=X(J)+G 

270 IF F< =E THEN E$=RIGHT$ ( "0"+HEX$ ( G ) , 2 ) +" " ELSE 1 = 99: E$ = SPACES ( 3 ) 

280 GOSUB 360 : F=F+1 : NEXT: E$=" : "+RIGHTS ( "0"+HEX$ ( Y) , 2 ) : GOSUB 340 
290 NEXT : E$=STRING$ ( 33 , ) : GOSUB 340 : E$= "SUM : ":GOSUB 360 
300 FOR J=0 TO 7 :E$=RIGHT$ ( "0"+HEX$ ( X ( J ) ) , 2 ) +" ":GOSUB 360:NEXT 
310 Z$=USR0( LEFT$(Z$ , E+l ) ) : IF E=0 THEN Z$=Z$+Z$ 

320 E$=RIGHT$( " 000 " +HEXS ( CVI ( LEFTS ( Z$ ,2) ) ) ,4 ) : GOSUB 340 : E$= GOSUB 340 
330 NEXT : END 

340 GOSUB 360: IF LEFTS ( AS , 1 ) ="P" THEN LPRINT ELSE PRINT 
350 RETURN 

360 IF LEFTS (AS , 1 )="p" THEN LPRINT E$ ; ELSE PRINT E$ ; 

370 RETURN 



') * h A-2 CRCIf^rnr^A 



. Z80 

.PHASE 0C000H ; OR ANY PLACE 



DE=TOP ADDR 
B=LENGTH 



C000 


05 


MKCRCS : 


DEC 


B 




C00 1 


C8 




RET 


Z 


;len=i then ret 


C002 


EB 


» 


EX 


DE,HL 




C003 


E5 




PUSH 


HD 


JSAVE VAL ADDR. 


C004 


56 




LD 


D, (HL) 




C005 


23 




INC 


HL 




C006 


5E 




LD 


E, (HL) 




C007 


23 




INC 


HL 




C008 


05 


• 


DEC 


B 




C009 


28 1C 




JR 


Z , FINIS 


JJUST 2 


C00B 


EB 


* 


EX 


DE , HL 


;hl=seed,de=addr 


C00C 


0E 80 




LD 


C , 80H 


;mask 


C00E 


1A 


LOOP: 


LD 


A,(DE) 


; DATA 


C00F 


Al 




AND 


C 


; CHECK 


C010 


28 01 




JR 


Z , SKIP 




C012 


37 


* 


SCF 




;CY=1 


C013 


ED 6A 


SKIP: 


ADC 


HL, HL 


;hl=hl+hl+cy 


C015 


30 08 




JR 


NC , NEXT 


; NEXT BIT 
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C017 


3E 10 




LD 


A, 10H 




C019 


AC 




XOR 


H 




C01A 


67 




LD 


H , A 




C01B 


3E 21 




LD 


A i 2 1H 




C01D 


AD 




XOR 


L 




C01E 


6F 




LD 


L, A 


; HL=HL XOR 1021H 


C01F 


CB 09 


NEXT: 


RRC 


C 


; ROTATE MASK 


C021 


30 EB 




JR 


NC , LOOP 


; RIGHT BIT 


C023 


13 




INC 


DE 


; NEXT BYTE 


C024 


10 E8 




DJNZ 


LOOP 


;dec COUNT 


C026 


EB 


* 


EX 


DE,HL 




C027 


El 


FINIS: 


POP 


HL 


; GET ADDR. 


C028 


73 




LD 


(HL) , E 




C029 


23 




INC 


HL 




C02A 


72 




LD 


(HL) ,D 


; SAVE 


C02B 


C9 


» 


RET 










* 


END 







M^hA-3 thtiv-yy’^ 



C000 


05 


C8 


EB 


E5 


56 


23 


5E 


23 


: 97 


C008 


05 


28 


1C 


EB 


0E 


80 


1A 


A1 


: 7D 


C010 


28 


01 


37 


ED 


6 A 


30 


08 


3E 


: 2D 


C018 


10 


AC 


67 


3E 


21 


AD 


6F 


CB 


: 69 


C020 


09 


30 


EB 


13 


10 


E8 


EB 


El 


: FB 


C028 


73 


23 


72 


C9 










: D1 


SUM: 


BE 


F0 


02 


D7 


FF 


68 


DA 


AE 


C076 
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M&Xh & 100 ft CO T = &HC000 (±, #J ft C000 X’Z < X (> i < , D000, E000, 

F000 i-t^l:fx7^t5««fg^P?'7AtIftb4l'7 K 
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ttSSB XI mMRR 



tTiiV'tt^^^T', ::t:i 9 *x.TXl - t £Lfc. 

antscomsLjgizfotx, ^ 2 *'?-^^, iii-g«©, tz 

t* L ffiPJH n <o e, C«jSC L T fcBS 5 *.T i ^ S v '. 

| I tltFBlS^(iD^-ei)4-''^ (7 )^^StiT^Sc7)-t : -, •C'ltW'SiTl:. 

>±**11 

fztzL, TS (i L^rV' £ 7 ic„ 



1 . ilttKi* 

M 1UT S K YES/NO T*g i J: 

(1) oi'Oi^ii-fbL.T L ± 7 

(2) t^^D77Ati r ^ l'-'M Hfi<TS4jfc«tT^S 

(3) t^^'/D77Afl) r i 7 1 ?n>y T'# Sj t-fttev'l) 

(4) Jf£lOt'-y h<7)/^ •) t l?Vtr>t:Zt&jb6 

(5) 7'd/7 $ >7’l%&t,BCD&£%lz.ZZttt, ZtUi L < frv* 

(6) CRTI±Bfc*V'i:fftBLTnS 

(7) lllw?^ 

(8) loaiffiii^gafcibs 

(9) Sl<0‘pf~*W^X?* s '£>& 

(10) r CDj t JitfSlUliRTIJ * < CALL <7)Zt ?t>6 

(id r mm m <km i$n j e*& 

(12) Slc0 4 , tC"7 ; 7X'Ui^X:?* s '£>l> 

(13) f jXtyl- (Ctt § i 7 (2 JEM (Ct"< £ *f 

(14) ^n'V n>c7)fjeg*-tl)-It*^V^ 

(15) 

(16) BASIC i 0 

(17) /7 $ V^fc&aOT C'& 

JU±17JRB«'5'fe 9*BJa±fc YES fcg£fc;£(i*Wfffi»irci-ot\®2«*W 
ffir ifcfcfMTLi to 



2. 1 ti*<7)®5f£iS 

F«5]1 PSG CO <fc 

a) XI CO PSG ^ftoT 300Hz <Og£m LXSk U' t tz 

coititttZc i-r >±'7WA$"®7 t LfcG, Ro, Ri (-(it* — 

330 tSKtciii^Xl 



#300Hz KiEV'SiaaSOWj&'ttiiTL i 7 fro 

b) XI (fl?&$CC)'J'S ^m) £ 

mLT^t 7 t It LtZo $T, jkJWSj&'ffi LfcWosiiftftJiv» < of L t 7 . d 'ft 

FhT 2 'n 0 W >y F t 

NEW BASIC t turbo BASIC O n - 7 > F' r PALET@j 14 — z><7)a-?> KT”*± Ao 
co^u-y F £!3:£-e£ & 3-v> KT”i>l>(^qt^* i o^f>x) 0 
^iT r PALET@^(ctl^t S 3'<4 hcof'-^j(cot>T^^ «fc. 

a) r 3/<4 F j ttz, F(J*fi*' 

OUT -f &fr ? 

b) r PALET @ 4, 1, 2, 6, 4, 1, 2, 6 j 3 '<4 F (i ? 

c) 777 ^ ■v7%4&KmzMmt2>{tb r )l,z, ( + M) nQHtMtiLV 

fxliiTCL^V' 9 t 

W£ PLANE 0(4000 h ~ 7FFF h ), PLANE 1 (8000 h ~ BFFF h ), ft 

£ PLANE 2 (C000 H ~FFFF H )fct£f-ii, if 7 tftli't v»*» 0 r PALET@ ?, ?, 

?, ?, ?, ?, ?, ?j L r 3^Fwf-^jflij: 0 

d) c) tfifct-Xf, S(PLANE0)>» (PLANEl) >*(PLANE2) ( + H) <0*1 

to 

e) 4feT"!;J&< 5 fetcfciJEB LTW, *, ft>6 ( + M) tLfcK /-?!✓•/ Fn-K 

£W=1, *=2, ft=3>&=4 (M=o) ttZMZZit&fro r PALET @ 
?, ?, ?, ?, ?, ?, ?, ?jt r 3^lWf-D Tlii. 

M3 fctfL~ B 14 2 jfcft, ~ 0 ti 

8 *»£*-*- «>*>?**. 

a) FAh+27h+34h 

b) FF h X 1011 b 

c) 774 0 + 444 0 

d) 10 h x11 h + 2Ah 

e) OFh xOFh 

f) 716 h -^ 2 

g) yiOOn 

h) 7 i44h 

i) \/2710 h 

IK! 4 ? n -y ;t(Xr- Fft) fcRW(/is*>llMfc) 

()f.^C7o7;i±4MHztt^. fctfLZ80<?)jlHtt**#flHLTt±6 

Lv'o 
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a) 





LD 


o 

o 

< 


loop: 


: DE c 


A 




RET 


Z 




J R 


LOOP 


b) 








LD 


A, 1 0 0 


LOOP 


: DE C 


A 




J P 


NZ, LOOP 




RET 




c) 








LD 


o 

o 

< 


LOOP 


: DE C 


A 




J R 


NZ, LOOP 




RET 




d) 








PUSH 


A F 




PUSH 


DE 




LD 


DE, 1 5 1 


LOOP 


: DE C 


D E 




LD 


A, D 




OR 


E 




J R 


NZ, LOOP 




J R 


SKIP 


skip: 


: 0 R 


A 




POP 


DE 




POP 


A F 



RET 



5 HL V 9 xms7^'(t( i — ^ tilZ HL= 1 & £> 1 ms, HL= 2 &•£> 2 ms) fl£ISIO.£: 

L&t&'Vy'Ji'-? >£1P9 fcn (HL=0<7)t#ii#^.^<Tj:v,) o tzt*L, *¥& 
aitffliJT'CO, 

PUSH H L 

LD H L, nm ; 

CALL %<F>*f7')V— f- > 

JJ2 t£®HCiB& XI 



POP HL 

i, AftT# £ h 1 1 & o 



"FtfULfiH 








PUSH 


HL 


; li 


LD 


HL, 1234 


; 10 


CALL 


WAIT 


; 17 


POP 


HL 


; 10 










WAIT: PUSH 


AF 


; ii 


PUSH 


DE 


;ii 


NEG 






; 8 


DEC 


HL 


;6 


LD 


A, 


H 


; 4 


OR 


L 




; 4 


JR [71)1, CASE 0 


; 12/7 


LD 


BE,Q2)] 


; 10 


CALL 


WS 


; 17 


BIT 


0, 


(HL) 


1 12 


DEC 


DE 


;6 


OR 


A 




; 4 


LOOP : LD 


DE,R3)1 


10 


NEG 






8 


NEG 






8 


CALL 


WS 


17 


DEC 


m 




6 


LD 


(5) 




4 


OR 


m 




4 


JR 


NZ 


, LOOP 


12/7 


FINIS: POP 


DE 


; 10 


POP 


AF ; 


; 10 


RET 






; 10 


CASED : LD 


DE 


:.BZS i 


; 10 


CALL 


WS 


1 


; 17 


JR 


FINIS ; 


; 12 


WS : DEC 


DE ; 


; 6 


LD 


A, 


D ; 


; 4 


OR 


L 


i 


; 4 


JR 


NZ 


,ws ; 


12/7 


RET 
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b) ±Ewyp77A^fi<f^fi.^$V' (CftlifSf*) 



3 . 4#«*<7)®jRS£ (fi*) 

a) ^14^<7) U X h 14-2 (turboZ <7) 4096 •/ h <F>%}%Ut) <F> EF4D H ~ EF6B H 

IP LWIi £-£ <k o 

b) J: 9«vv*7Vi,-f->£ffcft. „ b 



# IS ^ 



m i mmmu® 

m i 

a) Ro = 161, Ri = l 

b) 30.5Hz 

m 2 

a) AAh, CCh, FOh ?> 3 b 
OUTf 

AAh^IOOOh 
CCh^HOOh #*fe 
FOh — *1200h 

b) 22 h , CC h , 99 h 



c) 


PALET @ 


0, 1, 


2 , 


1 , 


4, 


1, 


2, 


1 




AA h , 44 h , 


10 H 














d) 


PALET @ 


0, 7, 


1, 


7, 


2, 


7, 


1, 


7 




EEh, BAh, 


AA h 














e) 


PALET @ 


0, 1, 


2, 


4, 


7, 


1 , 


2, 


4 



32h, 54h, 98h 

Fdl3 

a) 155 h b) AF5 h c) 320 h d) 13A H e) El H f) 38B H g) 10 H 
h) 12 h i) 64 h 
m4 

a) 2695? D .y ?, 673.75//S 

b) 1417? o y ?, 354.25^s 

c) 1612? ay?, 403/iS 

d) 3999? ay?, 999.75//S (Ifltlflftt) 

nq 5 

a) 

(1) Z (2) 147 (3) 151 (4) HL (5) A, H (6) L (7) 147 

b) 

g L Z S v>. L tc r i47 j T** I) £ t * IfW*. i> % b L - * tia 

<tV'o 
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wm-n • 



time 



Itofl-IH 

oh \Mzimmmz & ii j 

% 0 % loi %'k^'Kti I/O -V y 7” ’85^ 6 B % r % 1 HI i^k,%4&Ktt I/O V -y 

7°j, ’87^2 M^ r ^21[H (a i; A. if =5: I/O vy7j 

*1^ CRTCT"t'i--^T"*l> ’85^7 H^ r ^2(al •?-itCRTC^*a*»4,4r«0«j 

SI 2^ PCGI±X**H>U'tf>T*£ ’86^3 H^ r ^10Hl PCG<7>Jb'ifi9T-£>£j 

si 3 $ g&gffuxs — wnji * r *i 8 H 

* 4 $ -^rcupwij^ifir^Tis — ’85#ioH^- r ®5iii -treup 

T'&Sj 

*5$ CTCI ’86^4 H4§- r SIlllI] CTCI2£4b j-A^-<7)T”S>l>j 

SI6^ SI0T*v7xf*S ’86^5 a^- r ^12[II SIO (iiifllf » 9 tSi&V'WCifc Sj 

* 7 $ iftfoTtiWtiS ’ 87 #- 8 af- r #**l 0 If 7 'o/ 7 Afil.j 

SI8# DMAli^t-»T*S ’85^8H^ r ^3IH Z80<7)-mittzt^T^^<r>V 

$>&j, ’85^9E4§- r Sl4[a] DMA \X7y~7 4 'y7I)ltU7OTil.j 
SI 9# 7' 4 X 7 £HH-X>-C £>•&—’ '85^1213 ■5F» 7 0 tSRf '86^1 

a^ r ^8|Il FDC (i&WjT*<fcl>j, ’86^2H4§- r Sl9l] FDC 
hh j, ’86^7 af- r ^14|n] DMA (CliT'4 X7**i <M7«Ti5j 

SI10# PSG 5 ’85^11 B 4r r Sl 6® PSG(iT*)i6x.T”*Sj 

$ll£ FM flHE-f-'' h A i?- 7 ’87#5H 4FSI23® FM ^Wt &X>f£> h j, ’87^6^ -5§- 

r S?24® MML ’87^7 a^- r »25@ MML t & <7>f 

& &j 

»12$ 7>x--f 7-vCK- K"C:ft9&tf<so-C*S ’87^4 H^ r ^22[U 

iK- K /f<7)T'^) •& j 

SI 13 * T- 7 'j) J ?- 5 t Li •) ’ 86^6 H^- r ^ 13 [II *lf<< 7 )|iT(Clir- 7 ° 4 - 

7>T"£> £j 



[##£!£] 

I . r Xl-x->>I§iSfflWf 4 j, jS£«fcH:> 7 -fiJ 

2 . XI turbo ®3&ia&H, r Oh ! MZj, ’84^ 4 

3. ffiM 7/-7x/ X LSI <D®F3E CRTC [HD46505] IS, r -W a 7 ta- 7 No. 8 j, X 

mmsm, amiRttfii 

4 . r Z807 7 S 'I K 7’ -y 7 j, «HA2l^, CQ iUJKttflJ 

5 . r 7 °o yy-y-ftv^t 7 V K -7 i * P — 7 f'-/ 7 -i 7 ^j, -hr* 7 rt' / 7 X 7 ;M 7 

h / >/-fy 3 — <J? V— i/ a > (GI) flj 

6. r YM215la.— tf-X'-x-iT^j, B 

7. r CZ-8BSm®liiBfl*j, 7 7 — 7°f l] 

8. r Xl ->X7 AI^$j, fTEBPi-til, I. Rittaporn It", B *V 7 I- 'O 7PJ 

9. I/O ’85#- 7 r W 7 D7”n-b •y-t^iblS’t'l) EHj, Processor’s Professor If, X 

10. r ^7n.yh°-f'4X7ggI;'?-c7)lE;ffl/7^'7j, S5*g#im CQ mSSttf] 

II. r 77-7X(7)IS®j 1 ~34^, MM -fi.f, 

12. r /|'3**»*jl~6#, e&ttfU 



ft » 335 



m §i 



A 



ALG 281 

AM 208 

AY-3-8910 230 




BASIC ROM 13 

BCD 90 

Bin 184 

BIOS ROM 20 

bps(/4<— ) 99 

BUSY 192,212 




CG 

CHDIR 

cluster 

C-MOS 

CP/M 

CRC 

CRTC (CRT n > 1 u-y) 

CRa-K 

CTC 

CUDISPfl-f- 

cylinder 

CZ-8BM2 

CZ-8BS1 

CZ-8BV1 

CZ-8BV2 

CZ-8CB01 

CZ-8FB01 

CZ-8FB02 

CZ-8FB03 



16, 56 

186 

182 

78 

176 

210 

16, 32, 46 

133 

21, 98, 242, 289 

36 

180 

98, 132 

242 

284 

284 

44 

44, 196 

219, 318 

318 



CZ-8RL1 79,310 

CZ-8RS 12 

D 

DATA 210 

DATA REQUEST 189 

Device dump 181 

DI 84 

DISPTMGlff- 36 

DMA 21, 148, 217 

DOS 193 

E 

EMM 13, 163 

El 83 

F 

FAT 182, 184 

FD 14,217 

FD1791 7 r 5 U 187 

FDC 187 

FDD 192 

FM 179 

FM ef S 11,242 

FMK«Wa 179 

G 

GAP 208 

G(7"7 7 4 'y 7 ) -RAM -28,163,226 

H 

HD46505-SP 33 

HLD 192 

HLT 192 
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IBM 7^-?7 h •• 

ID 

INDEX 

INP Mm 

INT 

I/O 

IPL 

IPL ROM 

1ST 

I V'JX? 

_J 

jis m^=>- k 

K 

KILL 

L 

LFO 

LFn-K 

M 

M {/if) 

MB8876 

MB8877 

MFM 

MFMfBiS^^ 

MKDIR 

MML 

//PD765 7 7 ; 'J 



176 

204, 209 

205 

226 

86 

10 

182, 184 

20 

245 

86 



64 



185 



247 

133 



231 

187 

187 

179 

179 

186 

242, 260, 276 
187 



NMI 86 

NOT READY 192 

o 

OPM 242 

OPN 242 

P 

PCG 16, 25, 41, 44 

PIO-3055-01 13 

PSG 20,230 

R 

RAM CG 44 

RESTORE 219 

ROM CG 44 

RS-232C 12,98,132 

jf 

SCSI 14 

sector 181 

side 180 

SIO 21,98,114 

Sync 208 

Sys 184 

T 

TL 251 

track 180 

turboZ 11,318 

TV 89 

TYPE (FDC K) 188 
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303 



V 



VIP 245 

VRAM 46,162 

w 



WNBSY 191 

Y 



YM2203 242 



4X7*4— -> a X7"n -y 7 



7 ^ X K 7 128,289 

x 7 y 314 

.xx Ka- K 133 

xv K • ^7 • 7"n - y 7 157,226 

.xx-xn— 7° 230,245 



z 

Z PHfeR 0 &*ffiI*IIIEif5£ 23 

Z7nv« 24 

Zx7n-^g 24 

Zf^x7'7yH§g 22,324 

Z80 99, 114, 148 

Z7°7 4 71T4*§Se 22 

Z t- K*5£ 22 

z^f 4 23,325 

Z 0 23 

A 

7 7'y 7 X- h 246,251 

7 1 ') t'i- 1 182 

T^3'')XV 245 



V.' 

4 v 2 'J y v I 220 

-4 x 7 — 9 —7*7 7 9 9 207 

4 >777° h x 7X7 86 

4 x7x — XX- 4 xtf— X 318 

4 x 7 x — x -t — K 35 

4 X T" -y 7 X * - )V 178, 205 



is 

^P§ 277 

If* 230 

A 

Pf If kT"4 X 7 1 9 182,186 

«I«S 324 

W7oy7 99 

RAM jK— K 13 

$14$ ROM 13 

7 7x7 99 

7 7 X 7 7 - K 101 

77y 90 

77cx*m7?ai&s 133 

IB® 1=31 25 

77-4 7 — 7,K— K 11,284 

7 X X 7 — 90 

11^3- K 64 

}Jt^ ROM 13, 16, 71 

ll^VRAM 28,68 

y 

A-T -7 88 



* 31 7J9 














*~K-h 84 

T 

E.6 3 - K 64 

9 7 X 9 (cluster) 182 

777^ "/ 9 225 

777 /f 'y ?jUffi 68 

7774 >y 9'*V>y \ 15,24 

7774 7? (G-) RAM -28, 163, 166, 226 

?d 7 ? 116 

9 V -y 9s<) l/X 179 

?D 7 ?t'7 1 179 

9 n-vAf — 318 

jf 

Y— 84 



HfeftlHW 26 

n-v> K V i? X 9 192 

n >r 4 - K 156 

T 

Y-Y 149,170 

Wcto<7)-t9 9 208 

+M K 180 

Y'f K#-t 182 

YXt j —> u— h 246 

+X7 -4 — > 246 

-0-7" CPU 17, 78 

-0-7V 7X7 153 

T 

'>-9 192 
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x— 195 

x — 9 K 192 

/XfA 104 

S/7 h JISSI^n-K 65 

mm 230 

y s 4 X f ^ ^ 20, 230 

x U 7 114 

x U 114 

y 1 )^/ (cylinder) 180 

y '] y 201 

X-^-4yij-;-X 16,35,325 

X^fi — 7 T 207 

X?7V7VHII& 284 

X?7>7Vl^ — K 284 

X?n-;u IN/OUT 325 

X?-lb*7l 114,303 

X7-F.+°-l 26 

Xt — 9 X 189 

XT-7X1/-7X? 188,206 

X T 7 7° • 'f X /X T 'y 7° • 77 1 -200 

XT 7 7”1/- h 194 

X 1 7 7° t' -y 1 114,133 

XA- XX?n- ^ 35 

it 

-fe 9 9 (sector) 181, 205 

*.9 9%t% 204 

-te'n^'Txl' 99 

* 

V7 174-77 1 181,225 











tz 



9 ~ 5 i-fr 134 

9 At 99 

9 A t b 9 if 99 

9 Ivt- K 101 

9' 104 

;UT9 1' 99 

99,116 

r^>^<y>9 ioo 

#«' 178 

fi7 9+92*3-7— 303 

7t>A-^ 230 

O 

SIS 114 

ifili©]»*itSE 133 

133 

X 



7') -Tv YTYvxt—9 203 

*n§l 148, 164 

T 

l-> 230 

Klifflffl 289 

P#ft 92 

Y7A 7V)-few 9 b 190 

^7 7 180 

b7v 9 V'JX9 188,190 

[Z 

s -133 

( 7 ) 

2 AX 230 

80C48 78 

80C49 78 

'*—x b Y 155 

^—Y7ix9 13 

^-7 h— 284 

- K-t / ?n 284 

'<A b*~Y 155,220 

178 

'<X 148 

^"X7- K 183 

/'•v 3 >ais 132 

yN'ywu*'— b 230 

^'J74 133 

'+U v 1 ISte 321 



7 — 9 t'v b 114,133 

7— 9 7 4— JUY 204 

r— 7* 300 

T—7°<7) 9 — Y/xA h 303 

T'XXAl'-b 246,251 

7 1X9 7 A \ 199 

7i X 9 9 - K 199 

7 4 V 9 F 9 182 

T*X bT h 9 8a- h 27 
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7'n . y 7ft 220 
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If 
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7X7 34 
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>) -fe -y h 103 

Stfrdf- K 11 
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tl 

182,225 

l/f-f fifTf 158 

p 

ftl 0 liX- 84 
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